a 


Nn YONMNNNM 

nnn NNNNNY 

Nunn NNNNNYM 

nnn nnn nnn 

nw nw nnn 

nnn nnn Nn 

Nw nun nnn 

nnn Nun nnn 

Nw nnn “Nn 

nnn nun nn 

nnn nnn YVnwn 

MWnm Mw mnw 
MNWNNwW Mmnn 
NNMNNNUYN nnn 
NNNNMNM nnn 

eee 

mee 

bo 

ro 

od 

bee 


me re hh 
a oro 
a el el ee ee 


SSSSSSSSSS888s 


000000000 
000000000 
000000000 


SSSS8S8SS888888 
SSSSSSSSSS8SS8s 


SSSSSSSSSssssss 
S3S223_ 822383 


ccm 
lem Ea | 


B 12 


**F I LE**1D**CONF IG 


uo uovoVe 
oOo ouvI"o 
ovo ovo ovo 
oo oo oo 
oo oo oo 
oo oo oo 
oo ovo 
oo oo 
YVVGUV9U9N000 
VU VV VU9ON000U 
kon te 


ee —o 
tk Od ad Od Od Od Od Od Od Od Od Od 
kk Ok Ok Od Od Od Od Pd Od Od Od Od 
—e _— 


— —e 
ba oh 

be Fe 

he a be 

Ae ka. 

ba eke fe 

bak Ma 

GAL OL Bae 

OAL oe 


eS ee SOL OO 
ee a Se 


22222222222222 nn ANMM 
2222222 2222 


222 2222 nn ANMM 
zz nn nw nw 
2a “wn mown mw 

sz nw ww mw 
4 “ww Www mw 
22 nw nn wn 
$s nw nn nw 
222222222 222 ANMNWM nn 
ooooooco°0o°0o 
oooooo°o°o°oo 

oo oo te en 

oo oo anion) aie! 

oo oo te et rt Oe eg Od Et og Og ON Em Od 

oo oo Oo a Eg OY Ot oe ed Dd ed 

oo ee a 

oooooo°o°o°oo 
oooooc[“eo0oo 

ww wu atal 

wu Vv oatadl 

Ywv wv pan ae 

Yuu wu pa ee 

ww YVwuvU ad ad 

ww Uw dad 
rors) Vv etal 
vo ww a4 
VBVYVYVYVYYYYY ed ed od od od od) od od 2 od) I I 
VBVVYVYYUYYYUY cc ed ed ed ed ed ed ed ad ed od) I od 


| C 12 | 
CONF IG - CSR AND VECTOR UTITLITY 15-SEP-1984 23:44:57 VAX/VMS Macro Vv04-00 Page 0 
Table of contents | 


(1) 149 EQUIVALENT NAMES MACRO 

(1) 199 REARNG; REARRANGE DEVICES ARRAY MACRO 
(1) 233 SYMBOLS AND 

(1) i TPARSE TABLE FOR CONFIG INPUT LINE 
(1) 3 EQV TABLE DATA 

(1) 77 TP ARSE ACTION ROUTINES 

(1) 500 ROUTINE OOKUP 

(1) 565 BOOSCON FIGURE = HYPOTHETICAL CONFIGURATION 
a) 690 ROUTINE ADDRESS_CALC 

(1) 921 ROUT INE PUT_LI 

(1) 989 UTINE REARNG_DEV 

(1) 1070 RIABLES USED IN SHOW/CONF IGURATION 
(1) 1156 INITIALIZATION CODE FOR SYSTEM DUMP 
(1) 1214 A BASE SCAN 

M1) 1 06 vect OR TABLE SCAN 

(1) 134 VIRTUAL CSR CONVERSION 

(1) 1370 MESSAGE OUTP 

(2) 1468 BOOSSHOW_ UNIBUS 


D 12 
= CSR AND VECTOR UTITLITY 15-SEP-1984 93:69:37 yan: Macro V04-00 Page 1 
4-SEP=1984 23:03:30 ([CBOOTS.SRCIJCONFIG.MAR;1 (1)) 


-TITLE CONFIG = CSR AND VECTOR UTITLITY 
-IDENT ‘v04-000' 


MPARRBAAARARAAALALAALALALAAAALAL ELAR LARA RAR AERA LASER ARRAS ARAL A LEASE ALAA ASAE SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH THE TERMS OF SUCH art AND WITH THE 


Sooo 
Cooooo 


2* * 
3* * 
3 ® 
3* * 
7* ® 
3* * 
7* * 
38 % 
3* % 
3* R PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3* TRANSFERRED. * 
3* * 
3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
- AND SHOULD NOT * 
* * 
3* « 
3* * 
3* % 
3* ® 
3* & 
3* * 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH | 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


PARRASZASAALALALALELALLA LEASES ASAE ERE R RASA ARRAS ERASER RA RRA ERA A SARS RRR ARR A DSS 


+ 
+ 


OSOOSCSCSOOOSOSOOSOOSOSSSSOSOSOSOSoooooooooooooooooooooSo 
ODOOCSCSOSOSOSOSOSOSOSOOSOOSOSOOSOSSOSOSOSSOSSSOSOSOSSSOSOOSOSOSOOOSOSOSOSoOOSO 


Sooooo 
SOOCOCOSOCOOSOSOSOSSOSOSSOSOSOSOSSOSOS SSS ooooooooooooooooooooooooooo 


NAME WN SO OO NAUNE WIN  S OD NAMEN OS OD NAUE WIN CO ODNOAUE WN OOONOUS win — 


SOCOOOSSCOSSOSOSSSSOSOSSOSOSSOoOOSSSSOSSOOSOOSOSOSOOOSOSOSOSOSOSOOOOSOOOOOOOOSoOO 


MAIN BB BEE EES EWI ononononononononony 2 2 2 


: AUTHOR: Jake VanNoy Creation Date: 18-JAN-1981 
> FACILITY: BOOTS, SYSGEN 
: MODIFIED BY: 
; V03-013 WHM0006 Bill Matthews 27-Jun-1984 
3 Fix display of SHO/CONF and SHO/CONF/COMM for MicroVAX I. 
; v03-012 WHMO000S Bill Matthews 26-Mar-1984 | 
3 Fixed Linker truncation errors. 
: VO03-011 WHM0004 Bill Matthews 16-Feb-1984 
: Added equivalence name IEU11 for IEQ11. 
: Added support for the new IDB field IDBSB_COMBO_VECTOR_OFFSET. 
; V03-010 WHM0003 Bill Matthews 02-Feb-1984 
3 Added equivalence name DHU11 for DHV11. 
; v03-009 wHM0002 Bill Matthews 01-Feb-1984 
3 Changed FAO parameter of CONNECT_OTHER from UL to UW. 
3 Added support for a valid adapter 0. 
0 ; v03-008 WHM0001 Bill Matthews 15-Dec-1983 
$ Added suport for outputting CONNECT qualifiers /VECTOR_OFFSET 
: and /CSR_OFFSET. 
; v03-007 MSHOO00S Maryann Hinden 27-Jun-1983 
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46-SEP-1984 
p 28 ; Fix truncation error for call to CHECK_CSR. 
60 V03-006 MSHO004 Maryann Hinden 24-Jun-1983 
3 Change SBOODEF to SBOOCMDDEF. 
° 8 v03-005 MSHO003 Maryann Hinden 23-Jun-1983 
rt: Use SBOODEF. 
96 v03-004 MSHO002 Maryann Hinden 28-Dec-1982 
6 Calculate floating vector for nth device (n>1) 


6 ; correctly; add and TU81 to REARNG table. 

00 $3 ; v03-003 MSHO001 Maryann Hinden 04-0c t-1982 

B68 4 : Check for DDBSL_UCB = 0. 

000 i ; v03-002 KDM0002 Kathleen D. Morse 28-Jun-1982 

00 74 ; Added SPRDEF. 

00 73 3 

b8 6 : ABSTRACT: 
944 ee : CONFIG is a utility routine used to calculate the CSR and vector 
000 79 ; addresses that AUTOCONFIGURE would assign to a configuration on 
+464 0; the UNIBUS. Input consists of a List of devices that make up any 
8500 13 possible configuration of devices on the UNIBUS. 

44 § : Form of input: A file of <device type. # of, previous #> pairs. The 
000 4; ordering of the devices in this file is unimportant, the wert ity 
0000 S$ 3 will calculate ranking. The previous # is the count of this device 

444 $ : type that were configured on previous UNIBUS's. 
0000 8; Output: A List of CSR and vector addresses that AUTOCONFIGURE 
4 34 3 would use for such a configuration. 
$000 91: Sample of input: 
B28 92 ; 
000 93; cR11 
0000 94 ; ' comments are allowed after ‘*!*’ 
0000 95; LP11,2,2 
44 96 ; 0C11,6 
000 97 ; DT11,,1 
0000 (98; RL211.3 
0000 99 ; 
0000 100 ; where the absence of a number of controllers is taken to mean 
st 101 ; that there is one such device. Unrecognized device types will 
00 1 § : be flagged as errors. Use of equivalent names will be noted - 
4 : ; e.g. e use of RL211 above will result in the Line: 
4 | : Equivalent Name - Device RL211 will be output as RL11. 
$00 107 ; 
000 1 
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00001000 


00000020 
00000080 


00000000 
00000001 
00000001 
00000002 


00000002 
00600004 


Oooo 
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OOCOCCCOCoCoooooooooo 


ee a a ne a a ah st 


BEER EES EWAN NWA IIOP 


NAME WN SO OO NAME WN 9 OO NOUN EWN OOO NAME WIN" O 


<C HAMM Ue-OOo 


: CONSTANTS: 


UBA_IOBASE 


SPACE = 


= “x20 


BUFFER_SIZE = 


UBA_V_SUPPORT 
UBA-M~ SUPPORT 


UBA_V_FLOATCSR 
UBA_M_FLOATCSR 


oF 


V_FLOATVEC 
M_FLOATVEC 


128 


fen Ne OO 


MACRO LIBRARY CALLS 


= 8*512 


15-SEP= 
4-SEP 


1986 93:03:30 


DEFINE ACF OFFSETS 


AX/VMS Macr 
BOOTS. SRC CON 
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«MAR; 
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-SBTTL EQUIVALENT NAMES MACRO 


CONF = CSR 
vou-080 EQUIVA 


~->,P 
me 


zo 
= 
< 
mm 
55 
~ 
mo 
ww 
c 
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«MACRO SIGNAL message 


.1F NB MESSAGE 
MOVL Message,R0O 
ENDC 


BSBW SIGNAL_RO 
«Endm SIGNAL 


macro to generate equivalences data structure 


This macro creates a tree-like data structure where 
each pair of nodes consists of two names. The first 
name is a name which appears in the autoconfigure table 
and y A - seoene name is another possible name for the 
same de 

The two aaciee FIND_EQV are then used 

to give one the other node, given the first. 


-MACRO EQUIV NAME1,NAME2 

PSECT ACF_NAMES 

ASCID /NAME1/ zsname in ubatable 
-PSECT EQV_NAMES 

SNAME2$=. 
-ASCID /NAME2/ sequivalent name 


-PSECT EQV_DESC 
SEQV_DESCS=. 
-LONG $NAME1$ 


-LONG S$NAME2$ 

~-PSECT EQV_DATA 

-LONG S$EQU_DESCS 
-ENDM EQUIV 


SNAME1$=. 


SOOOOSSOOSOSOSOOSSSOSOOSSOSOSOSOSOSOSOSOSOSSOOSOSOSOSOSOOSOSOOOSSOS 


SOoOSSOOCOSOOSOSOSOSSOOOSOSSOOSOSOSSSOSOOSOSOOSOSOSOSOSOOSOOOSOSOSOOOOOSOSOOSoOO 
SOSOGOCSOSOOSOOOSOOSOSOOOSOOSSOOSOSOSOSOOSOSOSSOSOOSOSOSOSOSOOSOSOOSOOOOOOOSoOo 
SOCOSOCOSOOOSOSOSOSSOSOSSSOSSOSSSSSSOSOOSOSOOSOOOOOSOOOOOOOOOOOOoO 
a a a a a a a a a a kk kk kk dt td td 2 
WOOO OOO 1009690969 09 09 09 09 09 09 SI NINN NSD PPA AAA AAA MT 


NAMEN 3 9 OD NAN ES WIN O OOD NAME WIN OS OD NAME WN OO OONOULS Ww" O0 


Soooooo 
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306 ~SBTTL REARNG; REARRANGE DEVICES ARRAY MACRO 
g 3 macro to rearrange numbers in peyices yrer 
0 : intended to handle exceptions Like RL1 
8 : 3; where one device is fx,fx and another is fx,fl, etc. 
0 § ; 
00 3 INPUT 
6 5 § $ R11 = address of DEVICES 
8 \9 3 FIRST - first name in ubatable (upper Listing) 
11; OCC1 = which occurance of FIRST to find 
000 \§ 3 SECOND= second name in ubatable 
44 1? 3 OCC2 = which occurance of SECOND to find 
000 12 3; OUTPUT 
$00 9 3 The DEVICES array becomes: 
0000 18 ; DEVICESCsecond] := DEVICESCfirst] - 1 
0000 19 ; DEVICESCfirst] := 1 
0000 0; 
0000 1 5 
44 § 
000 eMACRO REARNG FIRST,OCC1,SECOND,OCC2 ,?L1 
0000 4 
0000 5 
0000 § PUSHAL FIRST ; First device 
0000 PUSHL #0CC1 3 Occurance 
0000 8 PUSHAL SECOND 3; Second device 
0000 9 PUSHL #0CC2 3; Occurance 
0000 0 CALLS #4,W*REARNG_DEV ; Rearrange 
0000 1 BLBS RO,L1 3; Better not be error 
0000 : BRW Exit : Will fail to run if so 
44 L1: 
00 4 
0000 5 -ENDM REARNG 
0000 6 
000 5885 
O60 33 : Macro to increment controller name by calling routine in AUTOCONFG 
0000 41 ;- 
$6 “8 -MACRO INC_CHAR 
00 44 
00 45 PUSHL R11 3: Save R1 
00 $6 MOVL W°L_DEVNAME ,R1 3; Address of device name 
4 & JSB ACFSINC_CHAR : Increment character, routine does not 
00 $8 : return status 
4 “ts POPL R1 3; Restore R1 
900 1 .ENDM INC_CHAR 
$0 588 
000 


ow View 


SVinis MLNS 


31 31 32 58 52 8 ‘ 
41 44 55 oS 
31 31 41 50 4C Be" 
42 31 31 52 44 Be" 
41 4E 55 00° 
31 38 55 54 00° 
04 
000000ED 
00000000 
00000000 
00000000 
00000000 
0000000 
0000000 
20 99° 
2A 00° 
73 65 79 00° 


6F 6E 00° 


NNN NINA A AAW EWI 


000 
69000000 
088 


00000127°010E0000' 


dd I =I BQOOOQOOOOCOOOCOOOSCOSSCSSSGOSSOSOSOOOOoooO 
RMROOMOLOSS OVO NVI" S OU 9 SF OF SFOOP PL LOOP Pun MTD PND MMO PMO 


SOOOOOSSOSOOOCOOSOSOSSSSOSOSOOSOOSOOSOOSOSOSOSSOOOOOOOSoO 


tt MQOOQQOOOOOCOO HM TH “1 “WHIT IT COCO COCDCD 


UTETLITY 
AREA 


15-SEP- 
4-SEP=1 


«SBTTL SYMBOLS AND DATA AREA 


BEV_LINE: 


0 
T 
5 
-PSECT PAGED_DATA 
0 
1 


; LOCAL VARIABLES: 
«ASCID @Device: !AC !_Name: !4<!AC!> !_ CSR: !60L!AC !_ Vector:a- 


63:43:37 yeasvas Macro Vv04-00 


BOOTS. SRC JCONFIG.MAR; 1 


rd,wrt,noexe,quad 


262 @ !30L!AC !_ Support: !AC @ 


63 RSV: 
RL11: 


265 RL211: 
266 TS11: 
267 RX211: 
268 UDA: 
269 LPA11: 
270 DR11B: 
271 UNA: 
272 Tu81: 
73 DEVICES: 
74 
75 L_DEVNAME: 
76 L_DRVNAME : 
77 L_ROUTINE: 
8 ACF _NAME: 
79 OFFSET: 
, NUM: 
2 FX: 
283 FL: 
284 YES: 
285 NO: 


-ASCII 
-ASCIC 


-ASCIC 
-ASCIC 
-ASCIC 
«ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 


-ASCIC 
-ASCIC 
-ASCIC 
-ASCIC 
- LONG 
- LONG 
- LONG 
-BYTE 
- WORD 
»ASCID 


/RSV/ 
/RLVV/ 


/RL211/ 
/TS11/ 
/RX211/ 
/UDA/ 
/LPAI1/ 
/DR11B/ 
/UNA/ 
/TU81/ 
100 


~ COOOCooOoO 


4/ 


sarray of device counts as read in 


saddr. of device name 
saddr. of driver name 
saddr. of routine name 
sused in routine lookup 


snumber of devices 


saddr. of current csr 
saddr. of current vector 
snumber of vectors 
floating vector modulus 


sonly need ascid block 


4 


<m 


vO4~-000 


ee are 


45 43 49 56 45 44 a 


FFFFFFFF 
000001CB"010E0000' 


SSH 


65 ue 64 64 41 20 258 406900 
51h ss) 20 omase gongoy 
BRRERE REE Hs 
DEEL EL 

A 20 2F 21 2F 1 99 opger>" 100000" 
UCP EPELEEY, 
A 20 44 25 21 20 6 20 4¢ 33 
0000 


SONOS "WWW MOD MO 


— — 
RSet te me tar erage 44 tt 
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$ UPCASE_DST: 
95 
96 CONF _PR: 


97 
4 BOOSGL_TR:: 
9 


89 null: 
1 fao_d_outbuf: 


4 buf: 
b2 fao_d_ctrstr: 
6 ASC 


07 fao_q_oneuba: 
08 -ascid 


$93 fao_w_outlen: 
10 


J 12 


-ASCID 
-BLKB 


-ASCID 


«LONG 
-ascid 


om tds 9 33:68 td Macro Vv04-00 
984 :03: , Yeoors: SRC JCONFIG.MAR;1 
// shas to OurFER. Size long 
BUF FER_SIZE jhere’s the block 
/DEVICE> / 
=] 3; For /ADAPTER = 
// 
1 o 
. lon 
“bike 128 


@ Address '60L (!XL) responds with value !XW (hex) @ 


a!/'!/ ** UNIBUS map for nexus #!UL on !2D ** @ 


-word 0 


C 
0 
: 
0 
0 
] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
02 
02 
02 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 


000002E7 
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«SBTTL TPARSE TABLE FOR CONFIG INPUT LINE 


SINIT_STATE CNFSSTATE ,CNFSKEYTBL 


SSTATE 
STRAN jDEVICE TPAS_EXIT 
STRAN 


EXI 
STRAN thag BLANK, TPAS_EXIT 


‘8 AX/VMS Macro V04-00 
1 
| 
14 
i 
3 
1 SSTATE DEVICE 
§ STRAN TPAS_STRING, NUMBER, CNF SF IND_DEVICE 
: SSTATE wUnpER 
6 
? 
8 
9 
0 
2 
; 
‘ 
39 
40 
41 


BOOTS.SRCJCONFIG.MAR; 1 


3; Parse device Line 
; Allow comment 
; Allow non-null Line with only blanks 


: Accept 


tphs LAMBDA ; But make it optional 


TPAS_DECIMAL, NUMBERS -CNISSET VALUE ; 


STRAN 
SSTATE 
$TRAN 
NFSSET_VALUE ; 


; Allow device,m,n 
STRAN 


TPAS_LAMBDA ,NUMBER2 “allow device,.n 


NUMBER2 
teks _LAMBDA 


STRAN 

SSTATE 

STRAN TPAS_DECIMAL, TPAS EXIT, CNFSPREV_UNIBUS ; 
STRAN TPAS_LAMBDA, TPAS_EXI 


SEND_STATE 
PARAM_BLK: 


SSTATE : Previous UNIBUS count 
STRAN 


Second # is prev unibus dev count 


-BLKB TPASK_LENGTHO 


<m 


0 
0 
0 
0 
0 
0 
0 
0 


00 

0 
00 
8p 0 
024 
0028 
002C 
002¢ 


OR UTITLITY 


.SBTTL EQV_TABLE DATA 
-PSECT EQV_DATA 


AB_EQV_TABLE:: 


EQUIV 
EQUIV 
EQUIV 


EQUIV 
EQUIV 


SEIS HEMESS AMOS sea R Po 


BOOTS. SRCJCON R;1 


Data for equivalences table. First device name is as it appears in the 
autoconfigure table. Second device is a possible second name (for whatever 


reason). The program uses this table to allow either device name as input. 


smultiple names 
smultiple names 
smultiple names 


zsmultiple names 
smultiple names 


smultiple names 
smultiple names 
smultiple names 
sbecause of chapter 14 How To Write... 
smultiple names 
smultiple names 


send of list 


0000 
00 O0000000'EF 01 Fé 


0000 


QOOOO1BF'EF 1C AC 00 
04 


PMMOOCOCOCOCOCOCOCOOCOOSOO OU 


CTOR UTITLITY hes uF at dat 8 9 $3748: i AX/VMS Ma 


OOOCGOCOOOCOCOCOOOOoOOMMNM PF 


SS 


ON 
BBSS #BOOCMDSV_NORESET ,BOOSGL_CMDOPT,10$ ; Set /NORESET bit! 
94 108: RET 
4 


SOOQCQooCoQooQoooQooooooooooooo 


=—=900 
Ounce 


ooo 


y ro V04-0 
OUTINES 4-SEP-1 BOOTS. SRC JCONFIG.MAR;1 
-SBTTL TPARSE ACTION ROUTINES 


-PSECT PAGED_CODE rd,nowrt,exe, long 


+ 


These are the TPARSE action routines called by the parsing table 
within the CONFIGURE module and from SYSBOOCMD. The routines called 
from SYSBOOCMD are prefixed by BOOS, the routines called by CONFIGURE's 
TPARSE table are prefixed by CNF$, other routines in this module that 
are called as subroutines have no prefix. 


See Ge Ge Ge Ge Ge Ge Ge 
t 


ENTRY BOOSNO_RESET, “M<> 


96 .ENTRY BOOSSET_IR, *M<> 
98 MOVL —_TPASL_NUMBER(AP) ,BOOSGL_TR ; Set /ADAPTER = number 


a= 
SO 
<- 


1 | 
1) | 


ene 
um 
o 
“4 
zo 
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-_" 


: This is a TPARSE action routing that offsets the device controller 
3; character to allow correct device names on mutiple UNIBUS configurations 


i 3 2 > 


GHOM SP OWMUAUWN SS MOLHLNOOOP PPP PP POP DNV WDOSSSOSOSOSQg oo 


OOCCOCCoooo 


000C ENTRY CNFSPREV_UNIBUS, “M<R2,R3> 

52 OOFD'CF 00 MOVL W*OFFSET,R2 3; Offset of this device into UBATABLE 

52 00000000°EF42 DE MOVAL L*ACFSAB/UBATABLELR2],R2 ; le. 

5 04 CLRL R3 ; x 

00 B82 00 10$ MOVL oseet aa ; Address of ascic device name string 

OOOOOOOO0"EF 1 JSB ACFSINC_CHAR 3 Increment character 

F1 5 1c AC OF AOBLSS TPASL_NOMBER(AP),R3,10$ ; Add one and branch while LSS 
50 O01 OD MOVL #1,R0 3; Set success 
04 RET : Return 


: routine to set value in device array 


| 

; Address in table | 
nde 

| 

i 

| 


OOFC ENTRY CNFSSET_VALUE, “M<R2,R3,R4,R5,R6,R7> 
52. 1C AC CVTLB TPASL_NUMBER(AP) ,R2 ; Convert to byte 
31 +10 BVS 0$ 3; Overflow error 
a BLEQ 0$ 3; zero or negative 
53 0089°CF 3 MOVAB W*DEVICES,R3 ; Base of array 
54 OOFD'CF OD MOVL W*OF FSET, R4 3; Offset into array 
6344 95 TSTB (R3)CR4) 3; Make sure its zero 
13 BEQL 10$ 3; Branch if OK 


replace original value and notify user. 


GOOOCOOCOoooooooooooooooooooooao 


PADS UPTV EE BY WII III 


| 
| 
device has been input by user twice - | 
| 


RRR EERE EEE E EEE EEE EEE EE EEE EERE EEE EE EEE EEE EPP eee eee 


nm 
oa 
SOOSOSCSSSSSSOSSSOSOSSSOSOSOSOSSoOSOOSOSOSoOSOSOSOOSOOOOOOSOOOSOOOOSOOSSOO 


ANNE BREE EEE PWWWWWWIIononononononononuny 2 2  BOOOOOOOO 


WN 9 ODO NAUE WN $9 ODNAUN EWN 9 OO NOUS WN 9 OONAUE WN OOONAOULS UM 


1¢ AC OD PUSHL yeast ry peat 3; Second number for this device 
7E 6344 QA MOVZBL (R3)CR4J,-(SP) 3; First number that was input 
OOED'CF ODD PUSHL W*L_DEVNAME ; Name of device 
03 odd 90 PUSHL : Number of FAO parameters 
OO7CA00B 8F DD 00 PUSHL #SYSG$.TWICE ; Error message 
00000000 ' GF 5 FB 00 CALLS #5,G*LTBSSIGNAL : Signal error | 
6344 52 90 Sep 10$: MOVB Re (R3)CR4) ; Insert number of devices into array | 
OA 11 a BRB 30$ 3; Return success | 
O73 20$: 
Oop SIGNAL #SYSG$_OUT_RANGE 3; message - warning 
50 01 00 bp 30$: MOVL #1,R0 3; Set success 
04 0080 RET 3; Return 


<o~ 
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OOFC 8 1 $e? sENTRY CNFSFIND DEVICE, “M<R2,R3,R4,R5,R6,R7> 
8 68% ; Check first for equivalence name 
54 QO000000'EF 9E S3 £23 MOVAB AB_EQV_TABLE,R4 ; Address of equivalences table 
55 ef D O8A 461 10$: MOVL (R4)+,R5 3; Get next equivalence 
_ 44 186 BEQL 20$ : End of List - no equivalence found 
OOF9'CF 85 DO OO8F 464 MOVL (R5)4+,W*ACF_NAME ; Possible real device name 
DO 0094 465 MOVL (R5)+, ; Equivalence name to match against 
66 20 14 BC ao ac 2D Booe 466 CMPCS TPASL_TOKENCNT(AP) ,aTPASL_TOKENPTR(AP), = 
QOAO 467 #*A/ /,(R6),a4(R6) 3 Check for match 
E8 12 SOAS re BNEQ 10$ 3; Branch if not 
56 OOF9'CF DO ODA2 *f9 MOVL W*ACF_NAME ,R6 ; Address of real device name 
00A7 $f6 ; signal change to ACF_NAME 
QOA7 47 
04 A6 DD QOA7 474 PUSHL 4(R6) ; Address of ACF_NAME 
7E 3C OOAA 475 MOVZWL (R6),-(SP) 3 Length of ACF_RAME 
14 AC DD QOAD 476 PUSHL TPASL_TOKENPTR(AP) ; Address of equivalence name 
10 AC DD QO0BO 477 PUSHL TPASL_TOKENCNT (AP) $ Length of equivalence name 
06 DD 0083 478 PUSHL #4 ; Number of FAO params 
OO7CA003 8F DD O00B5 479 PUSHL #SYSG$_EQV_NOTICE 3; Message name 
00000000'GF 06 FB one8 ret CALLS #6,G*LTBSSTGNAL 
10 AC 66 3C 00C2 re {| MOVZWL (R6),TPASL_TOKENCNT(AP) ; Move in real count 
14, AC 04 AB DO 00¢6 483 MOVL  4(R65,TPASC_TOKENPTR(AP) ; Move in real device name address 
00CB 485 ; 
OOCB 486 ; Find the string in UBATABLE 
OO0CB 487 ; 
00CB 488 
00CcB 489 
14 AC DD OOCB 490 20$: PUSHL TPASL_TOKENPTR(AP) ; Push address of string to match 
10 AC DD QOCE 491 PUSHL TPASL_TOKENCNT (AP) : Push Length of string 
01 DD OOD1 49 PUSHL #1 : Find first occurance 
OODF *CF 03 FB 0003 49 CALLS #3,W*LOOKUP : in UBATABLE 
03 50 =€9 sites $38 BLBC RO,30$ ; Branch if error 
50 01 dO OODB 496 MOVL #1,R0 ; Return success 
04 BRDE 497 30S: RET 3 
DF 498 
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00000004 
00000008 
0000000C 
007¢ 
54 601—CéséCEE’ 
QO000000"EF 9E 
56 85 0D 
¢/ 1 
4 06 
51 08 B6 9E 
61 9A 
OOED'CF 51 00 
O1A 50 02D 
oc BC 
= 
04 AC 07 
DD 12 
50 9 D0 
OOF D'CF & + 
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9 -SBTTL ROUTINE LOOKUP 
+ 
FUNCTIONAL DESCRIPTION 
This routine locates a device name in UBATABLE 
CALLING SEQUENCE 
PUSHL <address of string to match against> 
PUSHL <lLength of string 
PUSHL <which occurance of string to get> 
#3,LOOKUP 
INPUT PARAMETERS 
as above 
OUTPUT PARAMETERS 


RO Completion code 
OFFSET Offset count into UBATABLE for device 


Q 
0 
0 
0 
Q 
0 
: ; CONSTANTS 
OCCURANCE = 4 
ENGTH 
3 
3 
3 
3 
3 
3 
& 


Be Ge Se Ge Ge Ge Ge Ge Se Se Ge Se Se Ge Sete Se Ge Se Ge Ge Se Se 
t 

o 
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ra 

- 

mn” 


; Return success 
; Save offset into table 
Return 


rs) 
>» 

o 
= 
nn 
~ 
m 
“4 

eee? 


208: : signal no match 


= 8 
ADDRESS = 12 
ENTRY LOOKUP, “M<R2,R3,R4,R5,R6> 

MNEGL #1,R4 : Initialize counter 

MOVAB L“ACFSAB_UBATABLE ,R5 ; Base address 
7 108: MOVL (R5)+,R6 : Next device in table 
8 BEQL 208 3 device not found - error 
9 INCL R4 ; Increment counter ; 
0 MOVA a8 (R6) ,R1 3; Address of device name string 
1 MOVZBL (R1) ,RO : length of string 
§ OVL R1,W°L_DEVN ; Save device name 

CMPCS RO,1(RT),#*A/ /, = 
4 LENGTH(AP) ,@ADDRESS(AP) ; Match ? 
2 BNEQ 10$ 3; Branch if not 
7 DECL OCCURANCE (AP) ; Decrement occurances 
8 BNEQ 10$ 3; Not this one, keep looking 
0 #1 
RG 
4 
5 


a_ 
A 


<_mo 


OC AC 
08 AC 


2 
007C€9008 af 
QOO00000'GF 04 
50 007C9008 8F 
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0 
0 
0 
0 
Q 
0 
0 


FWOUNO Ps 


D 13 


15-SEP-1984 
4-SEP=1984 
ADDRESS (AP) 


LENGTH(AP) 
# 


#SYSGS$_DEVNOTKNWN 
#4 ,G*LIBSSIGNAL 
#SYSG$_DEVNOTKNWN,RO 


$3748 yaacves Macro V04-00 Page 14 | 
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; Address of as device string 
Length of string 

Number of FAO arguments 

Device not known message 

SIGNAL error 

Set error so TPARSE will not continue 
Return 
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} r $3 -SBTTL BOOSCONFIGURE = HYPOTHETICAL CONFIGURATION 
134 83 p++ 
134 68 ; 
, 2 S 3; ABSTRACT: 
, r rh ; BOOSCONFIGURE is the main TPARSE action routine called from SYSBOOCMD. 
134 73 ; INPUT: | 
134 575; OUTNAM_ADDR address of ascii output file spec (Default = SYS$OUTPUT) 
134 278 5 OUTNAM SIZE size of ascii strin 
134 77; INNAM_ADDR address of ascii input file spec (Default = SYSS$INPUT) 
4 4 4 3 INNAM_SIZE size of ascii string 
134 79 ; 
0 . a 
OFFC 0136 256 -ENTRY BOOSCONFIGURE, “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
0136 384 ; Open output file 
FEC7’ 30 0136 586 BSBW BOOSOPEN_OUTPUT_2 : Open /output= file (D=sys$output) 
0650 €8 Slee 4 BLBS RO, 208 ; branch if no error 
Et 25 10$: SIGNAL 3; Signal 
0043 = 31 Biz 239 BRw 50$ 3; Exit on error 
bie 238 3 Open input file 
FEBB' 30 014 594 20$: BSBW BOOSOPEN_INPUT_2 3; Open /input= file (D=sys$input) 
F450 € bi83 232 BLBC RO,10$ ; Branch if error 
06 00000000'EF 01 EO 0148 298 40$: BBS #BOOCMDSV_NORESET,BOOSGL_CMDOPT,45$ ; Branch if /NORESET 
00000000°EF 16 gee 4 JSB IOCSAUTORESET 7 Reset names 
0064 8&F 00 eal OO» 2c Bie 600 45$: MOVCS #0,W*DEVICES,#0,#100,W°DEVICES 7 Zero device array 
16 601 
56 O11F'CF DE ite 60 MOVAL W**UPCASE_SRC,R6 ; Set up calls to STRSUPCASE 3 
66 0080 8F BO 016 60 MOVW 4 HA SIZE, (R6) 5 made in READ-PARSE_INPUT é 
04 A6 4 Q000'CF DE Big 604 MOVAL SAB_ INBUFFER,4(R6) ; Address in descriptor ~ r 
= aru. @ 1 $ 605 MOVAL WUPCA ASE “DST,R8 3: Destination descrito é 
68 0080 8F 8B 4 one MOVW #BUFFER_SIZE,(R8) 3 Length (Address siseate filled in) 4 
9094 30 017C 60 BSBW READ AS PARSE_INPUT 3; Handle user input 2 
03 50 9 O17F 60 BLBC : Branch on error 4 
00CcD 0 Se 919 BSBW ADORESS. CALC 3; Process input 2 
50 01 0 188 ol¢ 50$: MOVL #1,R0 ; Set success for tparse 
4 133 e127 RET : Return to SYSBOOCMD 
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} | $18 READ_PARSE_INPUT: 
0 0000'CF 90 2c 0189 eis MOVCS #0,W*RIOSAB_INBUFFER,#*A/ /,- 
O00'CF 0080 8F E ; #BUFFER_SIZE,W°RIOSAB_INBUFFER ; Blank buffer 
OE €1 1 1 BBC #BOOCMD$SV_INPUT,- 
1A 00000000‘ EF 137 6 ¢ BOOSGL_CMBOPT,5§ ; Branch if /INPUT not specified 
190 6 $GET  RAB=RIO_INRABC 
050 €9 QOIAA 624 BLBC RO,7$ . 
00000000 EF 83 1A 625 TSTW R10 INRAB2+RABSW_RSZ :; Test for zero bytes read in 
ys 1 18 6 § BEQL READ PARSE. INPUT ; Read another record 
. 18 ° $$ BRB 20$ 3 Branch 
OOOOOIAF'EF OF O1B7 6 : ; PUSHAB CONF_PR : Addess of prompt 
6 0D O18D 6350 PUSHL R6 ; Push address 
a a 9¢ Fe as ? 1 a #2,G*LIBSGET_INPUT 3; Get input 
BE 13 0109 6 : BEQL READ_PARSE_INPUT ; Branch if zero 
11 11 O1CB 634 BRB 20$ 
8 ES os 
00000000'8F 50 01 01CD $39 ; CMPL RO, #RMS$_EOF : End of file ? 
04 12 0104 638 BNEQ 108 : Branch if not 
50 01 00 0106 639 MOVL #1,R0 3 Set success 
05 0109 640 RSB 3; Return 
SIDA 842 108: 
O1DA cts "SIGNAL : Signal 
0S ODD 64 RSB : Return 
O1DE 645 
BBE Bip 208: 
ites o38 ; Must do upcasing since RMS only supports CVT in the ROP field for tty input 
56 DD GIDE 650 PUSHL R6 3; Source of UPCASE 
00000000 ' GF 83 7 if $2) CALS PA STRSUPCASE : wettest Ao 
4 -G* ; Upcase inpu 
04 4 E O1ES 638 BLBS RO. 908 3 Spanak if no error 
Ole E 655 SIGNAL 3; Signal error 
05 o1f0 $28 RSB 3; Return 
57 Ogcs" Cr d 1F $28 30$: MOVAL W*PARAM_BLK,R7 : Poreneter block for tparse 
6 8 op 1F 65 MOVL #TPASK_COUNTO, TPASL_COUNT(R )_; # of longwords in param block 
04 A7 C8 O1FB 660 BISL  #TPASMTABBREV, TPASL—OPTIONS(R7) 
08 A7 00000080 BF D0 OIFE Sez MOVL #BUFFER SIZE, TPASL.STRINGCNT(RT) > Sive ot BUFFER’ te 
:; Size o 
OC A? 04 AB 08 04 $68 MOVL 4(R8), TPASL STRINGPTR(R7) ; Address of BUFFER 
1c a?) (01D 99 64 MOVL #1, TPASL_NUMBER(R7) ; Befault of one device 
0000'CF oF 0D 66 PUSHAB W*CNFSKEYTBL 3; Set up for call to TPARSE 
QO0O'CF OF 11 66 PUSHAB W*CNFSSTATE 3 by putting key table and state 
57 oD 13 66 PUSHL R7 3; _and the paren blk on stack 
00000000 ' GF 9 Fe 1 66 CALLS #3,G*LIBSTPARSE 3 Call TPARSE 
03 50 4 if 670 BLBC RO,4 : Branch on error 
FF65 = 31 3] 44 BRW READ_PARSE_INPUT : Continue to read input 
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15-SEP-19 
CAL CONFIGURATI 4-SEP-19 


RO, #SYSG$_ABORT 
a6 “s 


RO, #LIBS_SYNTAXERR 


READ_PARSE_INPUT 


TPASL_TOKENPTR 


(R7) 
TBASL. TOKENCNT (R7) 


#SVSGS SYNTAX 
4,G*LIBSSIGNAL 
REAS _PARSE_INPUT 


yaacyes Macro v04-00 
3 Yeoots spe CONF IG.MAR;1 


Has a fatal error occurred ? 
Branch if not 
Return on error 


; TPARSE error ? 
Branch if 


not 
Other errors already signaled 


token i o_o t be parsed 
qorete of toke 
er of FAO oorane 
Error message 
Signal the error 


a 
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~SBTTL ROUTINE ADDRESS_CALC 
ADDRESS_CALC: 


Make modifications to devices array and then simulate AUTOCONF IGURE 
algorithm by a te through same decision process as it does. 

the difference is this code uses an array (devices) to tell what 
devices are there rather than the EXESTEST_CSR routine to actually 
see if the device is physically present. 


execeptions in devices array 


some modifications must be made to the devices array 
to allow proper positioning of devices 


all these special cases are handled here 


the first exeception is the RSV device that, although it 

exists in the ubatable and is legal input as define above, 

it is a placeholder (a non-device) and cannot exist. 

orerers. the place in the devices array is checked to assure 
s zero 


MOVAL W*DEVICES,R11 


5B O089"CF ODE 


DDS DS DEDEDE DEVS SISSIES 


PEARIPOPIPIPONIPIPYNPDNIPINININYNINININY 
=—OMOow ONAN 

SoNno 2S ODORRaM 
SN 

Fh eh tee 


OOS7"CF OF $ PUSHAL W*RSV ; Address of string 
03 oD PUSHL #3 ; Length of string 
01 oD PUSHL #1 : find first occurance 
FE7B CF 03 «=FB CALLS #3,LOOKUP 3 n UBATABL 
57 OOFD'CF dO MOVL W*OFFSET,R7 : Offset of device into UBATABLE 
6B47 95 TSTB (R11) CR7] 3; Must be zero 
OD 13 § BEQL 10$ 3 Since RSV is a non-device 
3; (.i.e just a placeholder) 
SIGNAL #SYSG$_RSV_ERR 3; Signal message 
6B47 94 CLRB (R11) CR7) 3; Zero out RSV 
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III 


the following devices (RL11, TS11, LPA11, DR11B) all have 
a single fixed, fixed (or fixed, floating) address with 
the remainder as fixed, floating (or floating, floating). 


REARNG checks the first position and if it as greater than 
one shifts the balance to the second (where they should be) 


78 


10$: REARNG 


RL11, 1, RL11, 

REARNG TS11. 1, T$11 

REARNG LPAI{, 1. LPAI, 

REARNG UDA, 1, UDA 

REARNG Rxelt. 1, Rxei. 

REARNG DR11B, 1, DR11B. 

REARNG DR11B, 2, DR11B, 3; special case 
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—E 750 
e ray i** 
= le § : devices array is now in final form and ready to be interpretted 
6€ 754; as a List of devices on a UNIBUS. The following code keeps track 
6E £32 3; of the CSR and vector addresses as it scans through the devices array. 
-—  £ § ; The devices array is in sorted order since it follows the ordering in 
6€ 757 ; the autoconfigure table. 
6— 758; 
nt 
59 QOO000000"EF 9 761 MOVAB L“ACFSAB_UBATABLE ,R9 : Initialize 
0114°CF e808 Gt 80 i t6¢ OVW #°0160010,W*W_CSRBASE 3; Starting csr(minus high order bits) 
0118'°CF a 8F B60 baz6 76 MOVW #*0300 8 ,W*W_VECBASE =; Starting vector 
7 O11 CE $e7 Ne: MNEGL #1,R7 3; Counter (index into devices) 
SA 89 00 $380 766 LOOP: MOVL (R9)+,R10 3; Get first device addr. 
03 12 0389 767 BNEQ 10$ ; Zero at end of List 
0190 31 baee £o8 BRW EXIT : Exit 
OOED'CF O000°CA 00 bace 19 108: MOVL UBTSL_DEVNAME(R10) ,W*L_DEVNAME ; Address of device name 
OOFI*CF 000°C DO O39 771 MOVL UBTSL_DRVNAME (R10) ,W*L_ AME ; Address of driver name 
OOFS'CF QO00'CA 00 0 f ore MOVL UBTSL_RTNNAME(R10),W*L_ROUTINE ; Address of routine name 
O11C"CF O000'CA 90 OQ3A 77 BTSB_NUMVEC(R10) ,W*B_ VEC ; Number of vectors 
53 OQO00'CA 9E& O3AA 774 MOVAB UBTS$B_FLAGS(R10) ,R3 3: Byte flag 
5A 0000°CA 9E O3AF 103 MOVAB UBTS$WIREMAINDER(R10) ,R10 : Remainder of UBADEV entry 
57 D6 0384 777 INCL R7 : Increment counter 
0101°CF 6847 9A pe06 ore MOVZBL (R11)CR7J],W*NUM 3; Get count of this device 
038C 780; 
038C 781 ; now determine if device is (fixed csr, fixed vector) or 
038C ree 3: (fixed csr,floating vector), or (floating csr, floating vector) 
paee re? 3; much of this code was extracted (and massaged) from AUTOCONF IGURE 
038C 785 : R1 used for vector addresses 
baec ree : R2 used for CSR addresses 
1¢ 63 «6©602~—~Cé=‘*@€CECS* o3at res ’ BBC #UBA_V_FLOATVEC,(R3),FX_FX ; Branch if not floating vector 
a3eo 790 ; device has a floating vector 
C 791 ; round up to next valid vector address 
C 38 3; boundary for next device in the table 
; as 3: store in Ri 
51 g4 3¢ C 795 MOVZWL (R10),R1 3; Get vector modulo mask 
0000011D°EF 1 +4 C 79 MOVW R1,W VECMOD 3; Save for later 
1 Direct A CA 79 ADDW w*w_VECBASE.R1 3; Round up 
1 A AA CF 798 BICW (R10)+,R1 : Truncate to actual vector offset 
03 63 1 1 D2 799 BBC #UBA_V_FLOATCSR,(R3),208 ; If clear - fixed CSR 
o0eE i 8 $9 BRW FL_FC 
045 1 03D 1 20$: BRwW FX_FL 
030C 02 
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00000105 'EF 
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FFBB 

52 BA 

03 

004F 
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03 

0046 
00000105 'EF 
00000107°EF 
0549°CF 02 
03 50 

0005 

0101°CF 

50 9 O11C "CF 
50 004 

51. 50 

50 0000011D°EF 
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sfixed csr/fixed vector 
MOVZWL (R10)+,R2 
BNEQ 3 


TSTL W*NUM 
BEQL 20$ 
BRW TOO_MANY 
BRW LOOP 
MOVZWL (R10)+,R1 
TSTL W*NUM 
BNEQ 40$ 

RW LOOP 
PUSHAL FX 
PUSHAL FX 

ALLS #2,W*PUT_LINE 
INC_CHAR 

perl W*NUM 
BRW 10$ 


sfixed csr/floating vector 
MOVZWL (R10)+,R2 
BNEQ 208 


BRW 40$ 

TSTL W°NUM 

BNEG 30$ 

BRW 40$ 

PUSHAL FX 

PUSHAL as 

CALLS #2,W*PUT_LINE 
BLBS R0.35$ 

BRW EX{T 

INC_CHAR 

DECL wW*NUM 

MOVZBL W*B_CNUMVEC,RO 
MULL2 #4,RO 

ADDL2 RO.R1 

MOVZWL W_VECMOD,RO 
ADDW = RO, RI 

BICw RO.RI 

BRW 108 

TSTL WNUM 

BEQL 


BRW T00_MANY 

MOVZBL (R11)CR7).W*NUM 
W*NUM 

BNEG 608 
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; Get csr offset 
; Zero at end of fixed addresses 


Better be zero 
Branch if OK 
Error - fatal 


Get vector address 
Any of this type device left? 


No device - no effect 


Output one Line for this device 
Increment controller 

Decrement number 

Loop 


Get fixed csr from ubatable 
Zero indicates end of List 
Branch to test num if zero 


:; Zero ? 
; No = generate addresses 
3: Yes - finish up this device 


Output one Line for this device 
Branch if no overflow of addresses 
Fatal error - exit 


Increment controller 


; One less device 

; Get number of vectors 

: raheylate oe vector addr. 
€ 


dd in 


; Get vector modulus 
; Round up to next vector 
; Truncate to actual vector offset 


; Loop 


; Better be zero 
; i = 0 


f =/= 6 , error 


; Has there been a change in R1 


(other than rounding off) 


; Yes - restore w_vecbase 


aN 


AND VECTOR UTITLITY 15-SEP 
E ADDRESS_CALC 4-SEP 
FEF6 31 48 6 BRW LOOP 
0118'CF 51 BO 04 es 60$ MOVW = R1, W*W_VECBASE 
FEEE ef 49 6 BRW LOOP ~ 
49 64 
49 65 
rh $6 FL.FL: ;floating csr/floating vector 
52. O114"CF §=3C 049 68 20$:  MOVZWL W*W_CSRBASE,R2 
6A AO 0490 $2 ADDW (R10),R 
6A AA 4A 20 BICw  (R10)-R 
0101 "CF DS 046A i 30$ TSTL W*NUM 
3 12 O4A 7 BNEG  40$ 
0048 31 4A ri BRW 50$ 
00000107"EF oF O4AC i: 40$ PUSHAL FL 
00000107°EF OF Be 87 PUSHAL an 
0549'CF 02 FB 0488 878 CALLS #2,W*PUT_LINE 
03 50 & O4BD 879 BLBS R0,45$ 
0058 431 04C0 880 BRW EX{T 
04C3 881 
a aor 88¢ 45$: INC_CHAR 
0101'CF 07 04D 8 DECC a 
50 O11C'CF 9A 0407 884 MOVZBL W*B_CNUMVEC,RO 
50 04 C& O4DC 885 MULL2 #4,RO 
51 50 0 O4DF 886 ADDL2 RO.R1 
50 O0000011D'EF  3¢ 4ee 88 MOVZWL W_VECMOD,RO 
51 50 AO 0469 888 DDW = ROR 
51 50 AA O4EC 889 BICW =——RO.R1 
O4EF 890 
52 6A AO O4EF 891 ADDW (R10),R2 
52 06 04F2 89¢ INCL R2 
FFAC 31 O4F4 89 BRW 30$ 
04F7 894 
0118°CF 51 BO O4F7 895 50S MOVW R1,W*W_VECBASE 
0114°CF 52 B80 Oar 896 MOVW  R2,W“W7CSRBASE 
0114°CF 02 AO 0501 898 60S ADDW #2,W*W_CSRBASE 
0506 899 
FE7D 31 0506 900 BRW LOOP 
509 901 
509 90¢ TOO_MANY : 
007¢8082 8F od 0509 90 PUSHL #SYSG$_ABORT 
E 04 050F 904 CLRL. = (SP) 
007C80AA BF DD 0511 905 PUSHL #sVSGS TOO_MNY 
00000000'GF 03 FB 0517 906 CALLS #3,G*LIBSSIGNAL 
O51E 90 
O51E 908 EXIT 
OD €1 31 909 BBC #BOOCMD$V_OUTPUT,- 
OD 00000000' EF 520 «910 BOOSGL_CMBOPT,10$ 
3 git te SCLOSE FAB=RIO_OUTFABZ 
OE €1 05 318 BBC #BOOCMD$V_INPUT,- 
0D 00000000'EF 5 914 BOOSGL_CMOOPT, 20$ 
5 915 SCLOSE FAB=RIO_INFABC 
54 916 20$: 
0S 0548 91 RSB 
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BOOTS .SRCJCONF IG.MAR;1 
No = | 


oop 
; Update vec_csrbase 


Loop 


R2 will be CSR register 
Round to next csr 
Truncate back to csr offset 


:; Zero ? 
; No - generate addresses 
; Restore vecbase, etc. 


Floating 

Floating 

output one Line for this device 
Branch if no overflow of addresses 
Fatal error - exit 


Increment controller 

One less device to do 

Get number of controller int. vec.'s 
Calculate next vector 

Add in offse 

Get vector modulus 

Round up to next vector 

Truncate to actual vector offset 


Calculate next csr 
Increment CSR 
Loop 


Save new vector offset 
Save new csr offset 


Advance past one register block 


Fatal error - stop processing 


Illegal configuration 
Ran out of fixed addresses 


Branch if /OUTPUT not specified 
Close files 


Branch if /INPUT not specified 
Close input file 


and return 
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R UTITLITY 15-SEP-1984 7:44:57 VAX/VMS M 4 6 | 

E E 33:63:37 y acro V04-00 Page 2, | 
~SBTTL ROUTINE PUT_LINE 


+ 
+ 


routine to output csr and vector 


CALLING SEQUENCE 


PUSHAL <FX or FL> 
PUSHAL <FX or FL> 
CALLS #2,PUT_LINE 


INPUT 


R1 is value of current vecbase (to be output) 
R2 is value of current csrbase (ditto) ; 
l_routine and l_devname give the current device name 
R3 has the addréss of the flag byte for this device 


OUTPUT 
A single Line of output for this device 
(e.g. Device: DZ11 Name: TTA CSR: ... Vector ... Support ...) 
0000 ENTRY PUT_LINE,“M<> 
7E 51 7D mova R1,-(SP) 3: Save R1,R2 
51 00000200 8F 01 CMPL #*01000,R1 ; Compare to largest legal value 
15 BLEQ ; Branch if error 
52 OOOOFFFF 8F O01 CMPL #*0177777,R2 ; Compare to largest legal value 
18 #18 BGEQ 208 3: Branch if OK 


10$: 
Fatal error 


007€8082 of DD PUSHL #SYSG$_ABORT 
E =(SP) 


WDODODOOOOOOO00000000000000000:'00000000000000000 


D4 056 CLRL 
007C8092 8F DD 056 PUSHL #SYSG$_OVERFLOW : Overflow on addresses | 

00000000'GF 03 FB 056 CALLS #3,G*LTBSSIGNAL 3 signal error 
50 4 §27 964 CLRL RO : Set error 
4 2 oe2 RET 3 Return 
52. OO003E000 8F C8 057 967 20$: BISL2 #*0760000,R2 : OR in correct high order bits | 
O110°CF O10D'CF + 9E O57F 968 MOVAB W*NO,W*SUP : Initialize sup to “no | 
07 63 ~=—00 1 058 969 BBC #UBA_V_SUPPORT,(R3),30$ ; Device supported ? 
0110°CF  0109°CF E 25 44 MOVAB wW*YES,@*SuUP 3 Change sup to ‘'yes* | 
59 30$: SFAO_S CTRST LINE, = ; Format string | 
59 0 _OUTBUF , - 
59 OUTLEN, - 
59 - 3; Routine name 

59 - 3; Device name 

59 - : Current csr 


—_ 
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CONF IG = CSR AND VECTOR UTITLITY 15-SEP-1984 23:44:57 VAX/VMS Macro V04-00 Page 25 
v04-000 ROUTINE PUT_LINE 4-SEP-1984 23:03:30 (CBOOTS.SRCICONFIG.MAR;1 (1) 
0591 +978 P4=8(AP), - :; 't' if floating, ' ' if fixed 
0591 979 P5=R1 - : Current vector 
591 980 PG=4( AP), - : fe? if floating, ' * if fixed 
27} 3 1 P7=SUP 3; Yes/no for support 
C6 9 g SIGNAL 3 gignet if error 
FA34° 30 te 3 : BSBW RIOSOUTPUT_LINE : Output Line 
51 8&€ 7d O5CC 9 § 40$: mMOva (SP)+,R1 3; Restore R1,R2 
04 OSCF 9 RET : Return 
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~SBTTL ROUTINE REARNG_DEV 


+ 


FUNCTIONAL DESCRIPTION 


This routine is used to rearrange devices in the DEVICES array. 

Its purpose is to move numters from a device that changes from 

fixed, fixed allocation to fixed,floating or from fixed,floatin 

to TeOee ng, +1065 RG A number of devices on the UNIBUS are allocated 
1/0 space in such a manner. CONFIGURE allows the input of these 
devices all in one Line and this routine does the shuffling that 

is required to have one device at the first and the remanider 

at the second Loation in 1/0 space. Two calls to this routine must 

be made for DR11b's who have all three types of allocation. 


CALLING SEQUENCE 
Via REARNG macro 
INPUT PARAMETERS 
First(AP) First name to lookup in UBATABLE 
Occi(AP) Which occurance of the first device to find 
Second(AP) Second name to Loghup in UBATABLE 
Occ2(AP) Which occurance of this device to find 
R11 Address of UBATABLE 
OUTPUT 


As explained above and in the REARNG macro 


3; CONSTANTS 


SOVVOVVTVVIVIVVSVVIVTVISTVVTVTVCV VV VVVTVTVVVVVVCCC°C0C0"C0000"°90"0C00" 


00000010 FIRST = 16 
0000000¢ Cl = 12 
00000008 SECOND = 8 
00000004 (2 =4 
000¢ .ENTRY REARNG_DEV,“M<R2,R3> 
51 10A 00 MOVL. FIRST(AP),R1 ; Address of ASCIC string. 
7E 651 ¢ ADDL3 #1,R1,-(SP) ; Push address of actual string 
7E 61 9A MOVZBL (R1),-(SP) : Push Length of strin 
0c aC DD 05D PUSHL  OGCC1(AP) t which occurance to find 
FAFA CF 0 F CALLS #3,LOOKUP : Find occurance in UBATABLE 
52. OOFD'CFR OD MOVL  WOFFSET,R2 : Save position 
51 O8 AC 00 SECOND (AP) R1 : Address of ASCIC string 
7E 51 oi C1 #1,81,-(SP5 : Push address of actual string 
E 61 9A MOVZBL (R1),-(SP) > Push Length of str ng 
04 aC DD PUSHL occetap) : which occurance to find 
FAE2 CF O F CALLS #3,LOOKUP : Find occurance in UBATABLE 
53. OOFD'CF OD MOVL WOFFSET,R3 ; Save position 


MEAN SO ODNOA MNES WIN OOD NAUES WIN @ O OO NAUL WAN (OOD NAULS WN $0 ODNAULSWNO0 
ono 


ea aa a ab ab Ab db db db db Ab Ab db Ape dbp Ab Ab Abed be Ab Abed bedbAbedb sh sh abvabeabealalvahval ah vabvabeal wal eal eal val waleal eal wal eal eal al wal eal malas eal ea) 
SOOOOOCOOOCOOCOSOOCOOOOOOCOSOOSOSOSOOCOCOSOSOSCOOCOOOOCOSOOOOSCOCOOCOCOCOOOOOOOOOOOOO 
BPE EF FANNIN WIWINIWNIWIIIIROPININPNININININ 4 9 | 2QODTOKOOOOOCOOOOOOO0O00O000C 
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CONF 1G = CSR AND VECTOR UTITLITY 15-SEP-1984 2:44:57 VAX/VMS Macro Vv04-00 Page 27 | 
v04=" ROUTINE REARNG_DEV 273 b= 138 33:38; 0 (CBOOTS.SRCICONFIG.MAR;1 . (1) 
6B43 3 6 1 rf TSTB (R11) CR3] : Is DEVICESCsecond] = 0 

wos ? ! : BEQL 10$ : Branch if OK 

one ! ‘3 : Signal layout error 
voces || 8F dD 607 1051 PUSHL #SYSG$_ABORT 3; Unrecoverable - abort 
10 AC DD O060D 1 26 PUSHL FIRST(AP) 3; First device 
08 AC DD 0610 105 PUSHL SECOND(AP) 3 Second device 
DD 06135 1054 PUSHL # 3 Number of FAO argumants 
OO7CB80A2 8F DD 0615 1055 PUSHL #SYSG$_INPUT_ERR 3 pessage name 
00000000'GF 05 FB 0618 1 28 CALLS #5,G*LTBSSIGRAL : Signal message 
32 D4 06 1 : CLRL R 
1 11 é 1928 BRB 30$ | 
6842 01 91 be 6 1369 10$: CMPB #1,(R11)CR2) 3 Is 1 >= DEVICESCfirst] 
OC 18 062A 1061 BGEQ 20$ : If geq ok 
6843 6846 90 062C 106¢ MOVB (R11) £R2]. (R11) CR3] : Copy first to second 
6B4 97 80 1 106 DECB (R11) CR3J : _and subtract one from it 
6842 01 90 str Hs ¢3 MOVB #1, (R11) CR2) : Force one of first type 
50 01 DO 0638 1066 gos: MOVL #1,R0 
04 0638 1067 30$: RET 

063C 1068 | 
| 


am 


= CSR_AND 
VARIABLES 
Ose 
" et 
Ee? 
E7 
: 
E7 
00000000 E7 
OOOZEF* O2EB 
58 58 58 58 58 58 58 58 58 38 Ss 44 
$4 44441 | A} 

0000000 0 
4 4 444 $06 
0000000 OA 
44 4 444 iF 

0000000 1 
00000000 i 
00000000 bala 
00000000 0338 

032 
00000000 O35¢ 
00000000 0326 
00000000 83 : 
00000000 ‘ 

000000 0 

99000000 ; 6 
0000000 0 3 

< 3 
0000036 Be 
3A 65 6D 61 4E 00000368 '010 9090" 63 
EEE PE DER: 
SPOT RAR BORE Be 
44 41 21 28 3C 35 21 20 5E 5 3 Hy 
20 9 4C 4F HA 1 $8 3A 52 § Z3 0 34 
4f 5 $3 34 A $i § 6F 74 $3 5 § $00 
20 3A 52 72 6F 74 65 65 26 0 24 f 
57 4F 21 ce 

65 6D gt 4E 4 00000304 '01 ' cc 
5 9 E 21 41 21 HA 3 31 23 DA 
3? 3 ‘ ; $ 30 A 73 74 ES 

C 32 21 3A 5 5 af 4 F 

41 21 28 3C 35 21 20 3 § } FE 
ch be 
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N SHOW/CONF IGURATION 46-SEP-1984 33:98: 0 Ypoors sre CONF IG.MAR;1 9 
-SBTTL VARIABLES USED IN SHOW/CONFIGURATION 
-PSECT PAGED_DATA rd,wrt,noexe,quad 
: variables used in SHOW/CONFIGURATION 
NAME : 

NAME _L: 
.LONG 0 :DEVICE NAME DESCRIPTOR 
“LONG NAME_S 
NAME_S: ASCII  /XXXRXXXXXXAXXAXK/ 
UNIT: .LONG 0 :NUMBER UNITS ON CONTROLLER 
NVECT: .LONG 0 [NUMBER OF DEVICE VECTORS ( 1 OR 2) 
T_NVECT:.LONG 0 3: TMP NVECT 
AVECT1: .LONG 0 "IDB VECTOR 1 ADDRESS 
AVECT2: .LONG 0 ‘IDB VECTOR 2 ADDRESS (IF PRESENT) 
VCSR:  .LONG 0 ‘VIRTUAL CSR FOR DEVICE 
CSR: “LONG 0 SUNIBUS CSR ADDRESS 
COMBO_C RG ‘ [COMBO DEVICE'S CSR ADDRESS 
COMBO_CSR OFFSET: SOFFSET TO START OF COMBO DEVICE'S CSRS 
COMBO_VECTOR: : [COMBO DEVICE'S VECTOR ADDRESS 
COMBO_VECTOR OFFSET: SOFFSET TO START OF COMBO DEVICE'S VECTORS 
TR: “LONG 0 ‘SBI TR NUMBER 
ADP_TYPE: 
.LONG 0 sADDRESS OF ADP TEXT 
OVECT1: .LONG 0 :VECT 
OVECT2: .LONG 0 SVECTOR2 (IF PRESENT) 
UCB SAVE: .LONG 0 ; 
DRIVER: .LONG 0 
DEV_FOUND: .BYTE 0 : 
OTHE opyoce -BLKB 32 
~ CASCID @ Name: !4<!AS!> Units: !2<!UW!> Nexus:!2<!UW!> !5<(!AD)!>@ = 
@cSR: '60L Vector1: '30W Vector2: '30wa 
SHOW_OTHER: 


-ASCID @ Name: !4<!AS!> Units: 


'2<!'UW!> Nexus:'2<!UW!> !5<(!AD)!> @ 
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; adapter type >= 6 = UNKNOWN 
; Highest legal adapter type + 1 


3 adapter type = 5 


CONF IG = CSR AND VECTOR UTITLITY 15-SEP-1984 :44:57 VAX/VMS Macro Vv04-00 P 1 | 
you bG0 , INITIALIZATION CODE FOR SYSTEM DUMP 273-138 33:69 0 Yeoots Ske CONF IG.MAR;1 - #4) 
i 1156 -SBTTL INITIALIZATION CODE FOR SYSTEM DUMP 
4 118 H 
2 4 11 § > SHOW/CONFIGURATION = Rick Spitz 
2 2 1489 ; SHOW/CON/ COMMAND 
554 1188 : THIS PROGRAM WILL DUMP OUT A LIST OF CSR AND VECTOR | 
beee 1187 ; ADDRESSES CONTAINED IN THE VMS DEVICE DATA STRUCTURES 
0554 1165: | 
0554 1198 
008 1167 .PSECT PAGED_CODE rd,nowrt,exe, long | 
OF FC pose 1198 eENTRY BOOSSHOCONFIG, “M<RZ2,R3,R4,R5,R6,R7,R8B,RI,R10,R11> } 
52 OO000S43'EF DE 068E 1171 MOVAL  OTHER_BLOCK,R2 : Zero other block | 
8 7C 064 1128 CLRQ (R2)+ ; 8 bytes at a time 
8 7C 0647 117 CLRQ (R2)+ 3; (this assumes max of 32 nexuses) | 
82 7C 0649 117% CLRQ = (R2)+ | 
82 7C Bee8 112? CLRQ (R2)+ 
F9B0" 30 064D 1177 5$ BSBW BOOSOPEN_OUTPUT_2 3; Open /output= file (D=sys$output) | 
0650 €8 3 1178 BLBS 0,208 * : Branch if ok cai | 
0653 1180 SIGNAL : Signal ° 
0073 31 0656 1181 BRU «GOS 3 exit on error | 
1B 00000000" EF 02 EO 0659 1188 20$: BBS #BOOCMDSV_SAVE ,BOOSGL_CMDOPT,25$ ; Branch if SAVE command 
0661 1184 SFAO_S CTRSTR=SHOCON_HEADER, ~~ 
Se Se EcRLeRSE BUTEA” cormat str | 
= : Forma rin 
19 11 067A 1187 pra 308 - stag t: , 
067C 1188 
067C 1189 25$: SFAO_S CTRSTR=SAVE_HEADER, - 
067C 1190 OUTBUF =RIO$AB_OUTBUF ,- 
pore 4 OUTLEN=R10$GW_OUTLEN : Format string 
Seas 1198 30$: SIGNAL : Signal if error | 
F965" 30 oe8 1138 BSBW RIOSOUTPUT_LINE | 
69B 1196 SCMEXEC_S EXEC 3 Change mode to exec to allow 
Q6AA 1197 3 read to executive data structures | 
16.50 £9 QeaD 1199 BLBC RO, 408 t Grench on Srrer | 
, 3: Branch on error 
15 00000345*éF E8 éa0 1200 BLBS DEV_FOUND ,40$ ; Branch if device has been printed | 
OOOOO1BF'EF DD 06B7 1201 PUSHL BOOSGL_TR ; Adapter # 
1 OD QO68D 1 § PUSHL #1 : # of FAO params 
007C€9020 8F DD O6BF 1 PUSHL #SYSG$_NODEVADAP ; Set warning “'‘no devices on adapter” 
00000000 ' GF 3 6FB tt: ! : “ CALLS #3,G*LIBSSIGNAL : Signal error 
OD €1 O06CC 1 6 "BBC #BOOCMDSV OUTPUT - 
0D 00000000' EF 6ce 1 BOOSGL_CMBOPT, 50$ 3; Branch if /OUTPUT not specified 
6b4 1008 SCLOSE FAB=RIO_OUTFAB2 > Close file | 
0000018F EF 01 C¢ 6E1 1 50$: MNEGL 4#1,B00$GL_TR ; Clear TR for subsequent calls 
0 01 OD 6E8 1210 #1,R0 ; Set success for tparse 
04 rtd ! 1) 3; Return 
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FIG = CSR AND VECTOR UTITLITY 15 YAX/VMS Macro v04-00 Page 32 | 
*bS0 DATA BASE SCAN : Pa} 33°64 03: 5 feoots sre CONF I1G.MAR;1 9 (1) | { 
GEC 14 .SBTTL DATA BASE SCAN 
6EC 1 1 : EXEC MODE ROUTINE TO SCAN DEVICE DATA BASE AND | \ 
Pee 1 1 H COMPUTE CSR AND VECTORS FOR EACH DEVICE IN THE SYSTEM ; 
6EC 1 ig : REGISTER USAGE: \ 
6EC 1220; Rg DDB \ 
6EC 1221; R ucB ( 
6EC 1 § 3 R4 CRB | ( 
6EC 1 g R5 ADP ( 
See 1958 | 
000C bere 1 3° eENTRY EXEC. “M<R2,R3> : Entry mask ( 
00000342°EF 94 O6EE 1 CLRB DEV_FOUND 3; Zero flag \ 
52 00000000'GF DO O6F4 1228 MOVL 6 pocset DEVLIST,R2 ; DDB header \ 
08 11 pers ! , BRB 
52 6¢ DO O6FD 1231 DDBLOOP: MOVL DDBSL_LINK(R2),R2 ; Get next ddb address \ 
0 12 0700 1 3 BNEQ DDB1 ; More to do \ 
0388 = 3:1 0702 : % BRW DONE 3: Finished 
OQOOOO2FE'EF 01 9A Bree 1235 DDB1: MOVZBL #1,UNIT : Clear unit count \ 
Seteaeiee BE aS 13 EET Ly ibepe 
14 ag 9E orig 1238 MOVAB DDBST_NAME(R2),R3 Address of generic name 
QOOOO2ZE7"EF 8 9A a : 23 MOVZBL (R3)+,NAME_L 3; Length of name | 
3F 60S sé 87s 1241 PUSHR #*M<RO,R1,R2,R3,R4,R5> ~e for move character | 
OF 20 63 QO000ZE7'EF eC 0785 eke MOVCS NAME_L; (RS) ,ASPACE.#15,NAME-S ; copy name 
SF OBA a 1243 POPR —- #*M<RO,R1,R2,R3.R4,R5> | 
53 04 A2 09 or Re 1245 MOVL DDBSL_UCB(R2) ,R3 3; address of first ucb 
0000033A"EF eS 00 eH i 23 in R OTe save : way a. ones command 
54 24 AS DO O42 1948 MOVL UCBSL_CRB(R3) ,R4 : CRB address | 
53 30 A3 00 Bene 1250 UCB1: MOVL UCBSL_LINK(R3) ,R3 : Follow UCB Link 
1 74A 1251 BEQL 10$ 3 no more units,try next device 
QOOOO2ZFE'EF 06 Boe5 1 26 INCL UNIT 3; Increment units on this controller 
fa Be Bo ee : 2? BRB ucB1 3; Skip this unit 
sas ty sa a >. 1434 \ 55 10$: cL, wvect : ini pamper os of vectors 
006C BF 08 A4’ Bl $380 1 2$ CMPW cosy SIZEC(R4) ,ACRBSC -LelgTHoveese, "LENGIN Single vector? 
OE 19 768 ! 38 ; BLSS VECT : 1 vector” | 
£6 69 : DEVICE HAS TWO VECTORS | 
OQOOOOSOE*EF 4A AG DE 07 1 66 , MOVAL crest. INTD2+2(R4) ,AVECT2 ; Address of second vector 
00000302"°EF 06 ae ' o7 wert NCL NVECT™ :’Count of vectors | 
0000030a° Ss af iA DE 176 ee { ROVAL mee" INTD+2(R4) ,AVECTI | 
0000 4 784 #1 MOVL NVECT, ve ° sount Ln tem 
weil ' 3 rae 1 e3 MOVL CRBSL “Tatbsvecst IDB(R4), nee Idb address ° 
00000373" er © 83 D 793 126 MOVL IDBSL-CSR(R Virtual = p+ Ee | 


ee . —_ “ -} 
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Fone O80 DATA BASE SCAN 2736-1382 $3:63: 0 Yeoors sre CONF I1G.MAR;1 . (1) | 
OF AS 98 O79A 1270 CVTBL 1DB$B_COMBO_CSR_OFFSET(RS),-:Get offset to start of combo 
00000315 cE 79D 127 COMBO_CSR_OFFSET : device's CSRs 
10 AS 98 O7A2 1¢7 CVTBL I[DBS$B-COMBO VECTOR OFFSET(R5) .-;Get offset to start of combo | 
000003¢6" Ef 7A5 107 COMBO-VECTOR_OFFSET : evic "s VECTORS 
10 AS 83 O7AA 1274 SUBB3 108$8_ COMBO VECTOR OFFSET(RS),-;Get vector address(in Longwords) 
Gonoesze't OB A 7AD 1275 IDBSB_VECTOR(R5),COMBO_VECTOR; start of combo device's vectors 
5 4A 8 784 1 6 MOVL sa atthe ; Adaptor block for device 
0 1 788 127 BNEQ 0$ 3 phys teal device 
FF4O)0 0s 3331 re ! oe BRa DDBLOOP 3; Skip it | 
QOO0032A"EF OC AS 3C O7BD 1580 20$:  MOVZWL ADP$W_TR(RS),TR ; TR number for adaptor | 
57 0000016F "EF 8 7¢c5) «(1281 MOVL QOS6C_TR-R7 : Input from /ADAPTER = 
Cars 7CC Jer. BLSS $ ; Branch if non-existent | 
57 omooosease Bree Taek Bgt 1h. 
1 3 
FF23 31 O7D7 1285 BRW DDBLOOP 3; Try another device | 
PBA 1989 | 
Q7DA 1 + : Get text string associated with adapter number 
BPDA 1590 
57 0€F AS 3€ O7DA 1291 228: MOVZWL ADSSW_ADPTYPE(RS) ,R7 3; Get adapter type | 
57 00000550'°8F Di 1a j 3 CMPL #L_MARADP,R7 3; Compare to legal maximum 
97 18 O7E5 129 BGEQ 258 : Branch if legal | 
57 00000550'8F 00 gree : 3¢ MOVL #L_MAXADP ,R7 3 Set to unknown (UNK) 
57, 04 C& O7EE 1296 258: MULL #4,R7 ; Set up for longword offset 
56 QO0000534°EF DE O7F1 1297 MOVA AL_ADP_TEXT,R6 ; Get address of text table 
0000032E ‘EF 56 57 C1 44 1638 ADDL R7,R6,ADP_TYPE 3; Add them together 
OE AS 91 s} 0800 1390 ~~ GATS_UBA.ADPOU_ADPTYPE (RS) 3; Is it a UBA? | 
3 yes 
007B- sé ts 130¢ 308: BRW PRINT : he .print (no device vectors) | 
56 10A5 00 44 1304 ; MOVL ADPS$L_VECTOR(RS) ,R6 ; vector table address | 
0800 1306 . »SBTTL VECTOR TABLE SCAN | 
st ! 4 3 SCAN VECTOR TABLE FOR PROPER VECTOR | 
57 04 asop : 19 cone, CLRL R7 3: init count 
58 86 DO OBOE 131g "MOVE «(ROD +, RB ; get a vector | 
OOOOO3OA°EF 38 1 0812. 1515 CMPL | REAAVECTI i is it first | 
ooooosoe'er 58 D1 0818 1315 CHPLRB-AVECT2 ; second? | 
58 1 CA 4 1 19 ICL ag F nask interrupt stack bit 
58 ; CO 7 1 18 ADDL2 oR ; 11/750 vectors point to pushr 
0000030A' EF : o A ' i Srey R gavectt : is it first 
3 yes 
0000030E ‘EF ss bt OB3S 1351 CHPL RB AVECT2 : Jecond? | 
18 «13 A : vale BEQLU 6s > yes 
CB 57 900080 F F2 C 1324 " AOBLSS #128,R7,100$ ; try next one 
00000332'EF 1 CE 44 1325 MNEGL #1,0VECT1 : error no vector found (or only 1 of 2) 
00000336°EF 1 cE 4B 1526 MNEGL #1,0VECT2 
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Gone b60 VECTOR TABLE SCAN 2756-138 33:63:30 BOOTS. .SRCJCONFIG.MAR;1 . cies 
30 «11 1327 BRB PRINT 
sf 1 g 1308: | 
00000306 'EF 7 ef ! 4 peck J WyeCt 3 ieee or second? | 
33 57 78 5¢ 1331 ASHL #2,R7,R8 : mult by 4 ( vectors are 4 bytes long) 
00000336' EF D és 1338 MOVL RB _OvECT2 | 
11 67 Pook BRB PRINT ; both vectors loaded,print | 
5 iy 7 69 1335 "  ASHL = #2, R7, RB : mult by 4 
00000 32° “et D gp 1 6 MOVL R8,OVECTI 
O6'EF OD 4 1 TSTL T_NV : if single vector, then done 
1 7A (1 8 BEQL PRINT 
noe EF D4 eS ; ip CLRL T_NVECT ; ceogs 9 so pees vector goes to | 
B81 dest 41 BRB 110$ P | 
0884 ‘8 : .SBTTL VIRTUAL CSR CONVERSION 
tt 1345 ; CONVERT CSR TO PHYSICAL AND PRINT RECORD 
ORBG 1349 BRINT: 
50 O00000000'GF D0 obec 1346 , MOVL Pe _SPTBASE ,RO : virtuale pa . table 
A a a poe 
50 6041 b9 089 1351 MOVL ROSE AO : eet ore 
50 50 0O9 898 1326 ASHL 9,R0,RO : Shift to page f field 
50 09 00 00000312°EF FO O89F 135 INSV vCSR,#0,49,RO 3; Add byte 
50 FFFCOOOO SF CA OBAB 1354 BICL2 #*xFfFCO006,RO : Mask all but tow 18 bits 
50 00026200 ar D1 OBAF 1355 cHPL #°0461000.R0 ; R8730" CSR in adapter space? 
50 0003FB86 SF D0 0888 1357 MOVL  #*0775606,R0 : Set UNIBUS space CSR address 
HoooQiePO” $5 S$ MOL Taep Se: Gust? 07000. bE hares com ee 
0000031A‘EF 50 OOOO03IE'EF C1 th 1381 ADDL3 cORBO. CSR. OFFSET,RO,- ; Calculate CSR an combo device 
se a CE O89 1306 MNEGL coneo ts CSR R.OFFSET. - 3 Make offset from combo device CSR start 
00000326'EF o0000se6°eF 02 78 OBE4 1364 ASHL 42: MORO. ROECTOR OFFSET, cme. VECTOR_OFFSET; Get offset in bytes | 
00000322°EF 00000322°EF 02 78 O8FO 1365 ASHL COMBO- VECTOR; COMBO_ VECTOR: Get combo vector address in bytes 
0B 12 O8FC 1366 BNEQ ; Branch if not the UNIBUS boot device 
O8FE 1367 : (IDB$B_COMBO_VECTOR not currently filled i 
00000322"EF  00000332°EF 00 Bans \ o8 $$: MOVL OVECT1,COMBO_VECTOR : Assume boot device is not part of a combo 
909 29 5 .SBTTL MESSAGE OUTPUT | 
909 1378 ; BUILD MESSAGE | 
' : wi et device found f 
03 iain 03 el $19 i 7 Bote ABGOCROSY, SAVE, BOOSGL_ enbost 108°; 8 “er a if ao ou/ CONF 1G command 
008 1 4 | i BRW SAVE 0 TPOT ; Branch to OgAVE output | 
OE AS 01 BI 918 1 4 10$: CMPW #ATS_UBA,ADPSW_ADPTYPE(RS) ; Is it a UBA? 
47 12 QO91F 137 BNEQ 20s ; Branch if not 
921 1380 $FAO_S CTRSTR=SH | 
921 1381 OUTBUF=RIO OSKB-0 TBUF , - 
921 1 § 0 ut =R10$GW- ~BUTEEN. = 
921 1 PI=#NAME, - 
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voue O60 MESSAGE OUTPUT 27 E= 138 33:64:30 Yeoors SRe CONF IG.MAR; 1 — iy 
1 = - 
35) 1388 a a - | 
921 1 : P4=#3 - 
921 1 PS=ADP_TYPE,- | 
921 1388 P6=CSR - | 
#1 13 BOVE 
= | 
330 «1 36 $1 BRB abs 
036 1398 208: SFAO_S CTRSTR=SHOW_OTHER,- 
968 1394 OUTBUF =RI1O$AB_OUTBUF ,- | 
096 1395 QUTLEN=RIOSGU_OUTLEN, - 
968 1 36 Pi=#NAME, - 
096 139 Pg=UNIT, - 
0968 1309 | | 
0968 1400 PS=ADP_TYPE 
0998 140¢ ; OUTPUT MESSAGE 
0998 1404 $0$: SIGNAL : FAO error? 
F6SF* 30 O99E 1405 BSBW RIOSOUTPUT_LINE + Output Line 
FDS9=—s«331 ty 1308 BRW DDBLOOP ; Get next device 
09A4 1408 SAVE_OUTPUT: | 
53 QOO0033A'EF DO O9A4 1409 MOVL UCB_SAVE,R3 3; Head of List 
0000033 'EF 24 Ae DE O98 1410 MOVAL DDBST_DRVNAME(R2),DRIVER ; Driver name | 
56 54 a3 ~0 0985 1414 20$:  MOVL UCBSWIUNIT(R3) ,R6 :’Unit number 
OE AS 01 8} 0987 1418 cMPw #ATS_UBA,ADPSW_ADPTYPE(RS) Is it a UBA? | 
° es 
0096 $1 098p 1415 BRW «GOS ; No, other | 
0000031 "EF 05 99¢0 1417 23$ Tstt COMBO_CSR_OFFSET : Is this a combo device? 
: Ps ne es 
09C8 1419 SFAO_S CTRSTR=CONNECT_UBA,- 3 format CONNECT Line 
09C8 1420 OUTBUF =RI0$AB_OUTBUF ,- 
09€8 1421 OUTLEN=R10$GW-OUTLEN.- 
09C8 14 é PI=#NAME, - 
09C8 14 g=R6. - 
O98 1458 Pascshk, = 
09C8 14 6 PS=OVECTI,- 
9C8 14 P6=NVECT, = 
9CB 1428 P7=DRIVER 
75 «11 0A0? 14 ; BRB $ 
QA09 1431 25$:  $FAO_S CTRSTR=CONNECT_UBA2,- ; Format CONNECT Line 
bA09 14 : OUTBUF =R10$AB_OUTBUF ,- 
AOD 14 QUTLEN=RIOSGW_OUTLEN, - 
A09 1434 Pi=#NAME, - 
As te pete | 
AOo 1439 P4=COMBO_CSR,- 
AOD 14 : P5=COMBO-VECTOR,- 
A09 14 PGENVECT - 
A09 1440 P7=DRIVER,- 
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15-SEP-1984 

7786-138 33 
P8=COMBO_CSR OFFSET,- 
P9=COMBO_VECTOR_OFF SET 

BRB 50$ 

MOVZWL ADPsu TR(RS) ,RO 

BBSS RO,OTRER BLOCK, 80$ 

SFAO_S CTRSTR=CONNECT OTHER, = 
OUTBUF =RI0$AB_OUT 
OUTLEN=RIO$SGW-OUTLEN,- 
PI=ADPS$W_TR(RS) 


OUTPUT CONNECT LINE 


SIGNAL 

BSBW RIOSOUTPUT_LINE 
MOVL UCBSL_LINK(R3) ,R3 
BEQL 0$ 

BRW 20$ 

BRW DDBLOOP 

MOVL #1, RO 

RET 
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Get nexus number 
Ignore if this one's been done 
Format AUTOCONF 1 GURE command for bus 


3; Check FAO status 
; Output the Line 


Next UCB 

Branch if at end of list 
Loop if not 

Get next device 


Set success 
Return 
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BOOTS.SRCJCONF IG.MAR; 1 


-SBTTL BOOSSHOW_UNIBUS 


+ 

BOOSSHOW_UNIBUS 

FUNCTIONAL DESCRIPTION: 

This routine is called via the SHOW/UNIBUS command. It's function is 

to test every word of memory in UNIBUS 1/0 space and return the 

CSR, virtual address of that CSR, and the data at that location if 

the address responds. This is used as a Cobvesing aid for new UNIBUS 
configurations. Command requires CMKRNL and results in IPL being raised. 


NOTE that reading a CSR may remove a character from a buffer or otherwise 
make the device act strange. 


CALLING SEQUENCE: 
Called as a TPARSE action routine. 
INPUT PARAMETERS: 
TPASL_PARAM(AP) = 0, if no /ADAPTER was specified. 
= 1, if /ADAPTER was specified. 
BOOSGL_TR has nexus number if TPASL_PARAM(AP) = 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
SS$_NORMAL 
S$_NOPRIV = No privilege 
SYSG$_NEXNOTUBA = nexus not a UNIBUS 
SIDE EFFECTS: 


ALL UNIBUS 1/0 locations that respond are read from. 


-Entry BOOSSHOW_UNIBUS,“M<R2,R3,R4,R5,R6,R7,RB> 


BLBS TPASL_PARAM(AP) ,100$ ; Branch if /ADAPTER specified 


: Loop through all UNIBUS's on system 


MOVL G*EXESGL_NUMNEXUS ,R7 ; Number of nexuses 


ECT 
NIBU 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


R UTITLITY 15-SEP-1 244: AX/VMS Macro V04-00 Page 
2reEb 198 33:08:30 Lenore see scONy eC eMGR st ° 
CLRL R8 ; Count 
108: porenec a ve Tat thOTUBA, RO ; oe genes 
; nexus no 
20$ ; Error expected, continued 
BLBC RO,210$ ; Other error, exit 
CALLS #0,W*One_Unibus ; UNIBUS found, format 
BLBC RO; 210$ ~ 3 Exit on error 
20$: AOBLSS R7,R8,10$ ; LOOP 
BRB 206$ : Exit. status OK 


Do a single adapter as specified 


100$: 
MOVL W*BOOSGL_TR,R8 
SCMEXEC_S wt _ADP 
BLBC ~RO,210 
CALLS #0,W*One_Unibus 
BLBC RO,210$ 


200$: MOVL rt NORMAL ,RO 
2108: 4 ae -BOOSGL_ TR 


Set nexus number 


; Is it a UNIBUS ?, get CSR 
; Branch on any error 


; UNIBUS found, format 
; Exit on error 


; Set success 
; Default TR for subsequent calls 
; Return to TPARSE 


aw 
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Vo4e080 BOOSSHOW_UNIBUS Y 273E b= 1382 33:63: 0 Yeoors spe CONF I1G.MAR;1 . (3) 
AF 1328 3+ 
AF2 1 2 ; One_Unibus 
AF 12 8 ; 
vy! 1323 3 FUNCTIONAL DESCRIPTION: 
a 130) ; Format the data for a single UNIBUS. 
AF 1208 3 CALLING SEQUENCE: 
AF2 1564; 
OAF2 1565 ; Calls #0,0ne_Unibus 
OAF2 1566 ; 
AF 1567 ; INPUT PARAMETERS: 
AF2 1568; 
OAF 1569 ; R6 = ADP CSR 
OAF2 1570 ; R8& = Adapter number 
OAF2 1571; 
OAF 13/6 i-- 
~~ 157 
0000 OAF2 1574 One_Unibus: .word “M<> 
OAF4 1575 
OAF4 1576 SFAO_S CTRSTR = FAO_Q ONEUBA,- 
OAF4 1577 OUTBUF = RIOSAB_OUTBUF ,- 
OAF4 1578 OUTLEN = RIOSGW_OUTLEN,- 
OAF4 1579 P1=R 
F4EE* 30 pave 1380 BSBW RIOSOUTPUT_LINE 
53 D4 a2 1286 CLRL RS : To be offset into UBA I/0 space 
0B14 1584 10$: SCMKRNL_S L*CHECK_CSR 
50 007C9040 8F D1 aH 1585 CMPL #SYSG$_ENBUBA,RO 3; End of UNIBUS 1/0 Space? 
49 13 OB2A 1386 BEQL 100 :; Branch if done 
49 50 €9 past 138? BLBC RO,200$ 3; Exit if error 
50 OO7CA02B 8F 01 paee 1589 CMPL #SYSG$_SKIPPED,RO ; Was section skipped? 
OE 12 $836 130 BNEQ 20$ : Branch if not 
51 DD 0838 1336 PUSHL R1 3 Save value in CSR 
00000000‘ EF 8 3A 159 CLRW R1IO$GW_OUTLEN ; Zero length 
F4BD' 0 rh 1594 BSBW. RIOSOUTPUT_LINE ; Output a blank Line 
51 8E&D0 43 1595 POPL R1 3; Restore value in CSR 
46 1596 
0B46 1597 20S: 
55 53 0O003E000 8F C9 46 1598 BISL3 #*0760000,R3,R5 : Octal offset 
4E 1599 $FAO_S CTRSTR = FAO D_CTRSTR,- 
4E 1600 OUTBUF = RIOSAB_OUTBUF ,- 
4E 1931 GUTLEN = RIOSGW_OUTLEN,- 
OB4E 1 fi Pi = R5,- 
4E 16 Ps = R2,- 
25 1608 acide 
08 50 § 9p 1606 BLBC RO,200$ ; Exit on error 
F4BD' 30 160 BSBW RIOSOUTPUT_LINE : Output Line 
9F si 4 1908 BRB 10$ ; Loop 
50 01 0 7 1919 1908: MOVL #SS$_NORMAL ,RO : Set success 
4 4 1913 200$: RET ; Exit 
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BOOSSHOW_UNIBUS 44-SEP-1984 25:03:30 (CBOOTS.SRCIJCONFIG.MAR;1 (4) 
79 1614 ;+ 
B79 1932 3 CHECK_CSR 
BP 1819 : CALLING SEQUENCE 
0B79 1618 ; 
0B79 1619 ; SCMKRNL CHECK_CSR | 
B79 1620 ; 
B79 1621 ; INPUT: 
0B79 16 ¢ 3 | 
0B79 1623 ; R3 = CSR address offset 
0B79 1624 ; R6 = address of ADP CSR for that nexus 
143 1 23 
79 «4 8 : OUTPUT: 
0B79 1627 ; 
0B79 1628 ; R1 = Data at location 
0B79 1629 ; R2 = CSR virtual address 
0B79 1630 ; R3 = CSR offset (Context) 
0879 1631 ; R6 = unchanged 
0879 1636 3 | 
0B79 16335 ; RETURN STATUS: 
0B79 1634 ; 
0879 SH : SS$_NORMAL = Next CSR responded 
0B79 1636 ; SYSG$_SKIPPED - responding CSR was found but cals after skipping 
0879 1637 ; at least one word in the UNIBUS 1/0 Space. 
0879 1638 ; SYSGS_ENDUBA = End of UNIBUS I/0 Space was encountered. 
0B79 1639 ; 
0879 1640 ; 
0B79 1641 ;- 
0879 lobe | 
ent °° 1947 -PSECT NONPAGED_CODE rd,nowrt,exe,long 
0000 $000 194? CHECK_CSR: -word 0 3; Entry mask | 
01 DD 0902 1847 PUSHL #SS$_NORMAL . 3 Assume success 
} 
50 007C€9040 8F D0 0004 1849 10$: MOVL #SYSGS$ FAR \OA.RO 3; Assume end 
53 OOOO1FFE 8F 01 B308 1650 CMPL #°017776,R ; Loop through legal CSR's | 
30. = 15 Baie 193) BLEQ 40$ ; Exit if done 
53 08 CO 0014 183 ADDL2 #2,R3 ; Add 2 and try again 
52 1000 C64 9E Sg 1638 MOVAB UBA_IOBASE(R6)CR3],R2 ; Calcuate UNIBUS CSR address 
50 52 00 $01 1656 VL R2,R0 ; Set input for EXESTEST_CSR (R6 too.) 
3 0 1657 DSBINT ; Disable interupts (needed for 780) 
cocoons 16 6 1658 JSB SC HRS TEST_CSR ; Test location B 
0c 50 €8 O002C 1659 LBS RO, 30$ ; LBS if location exists 
OcF 1660 ENBINT ; Restore IPL 
6— O07CA02B 8F 00 3 $ 1661 MOVL #SYSG$_SKIPPED, (SP) 3; Set section skipped 
ce se o%B 1666 BRB 10$ ; Loop 
51 62 3 O38 1664 30$: MOVZWL (R2),R1 : Get data in register, Zero high word 
, E 199? ENBINT : Enable interrupts 
50 8E&D0 2 1998 POPL RO ; Set success 
04 Goes 1668 40S: RET 
045 1669 
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GET_ADP 
CALLING SEQUENCE: 
SCMEXEC GET_ADP 
INPUT: 


15-SEP-1984 23:44:57 VAX/VMS Macro v04-00 
2786p = 1982 3343: 0 Boots. sre CONF IG.MAR;1 


R8: nexus number to search for 


OUTPUT: 
R6 = address of 
RETURN STATUS: 


SS$_NORMAL = 
SYSG$_NEXNOTUBA 


ADP CSR for that nexus 


R6 is set appropriately 
- specified nexus is not a UBA 


-PSECT PAGED_CODE rd,nowrt,exe, long 


GET_ADP: word 0 


MOVL #SS$_NORMAL ,RO 
MOVL G*1OCSGL_ADPLIST,R2 


10$:  CMPW RB, ADPSW_TR(R2) 


BEQL 
MOVL ADPSL_LINK(R2) ,R2 
BNEQ 10$ 
BRB 20$ 
15$ MOVL 


ADPSL_CSR(R2) ,R6 


Entry mask 


Get next 


Get ADP CSR 


CMP BA,- 
ADPS$@_ADPTYPE(R2) ; Make sure it’s a UBA 
BEQL ; Branch if OK 
0$: MOVL #SYSG$_NEXNOTUBA,RO ; Set error 
O$: RET ; Return 


Assume success 
Get ADP List header 


Loop looking for nexus 
Branch if found match 


ADP 
Branch if not end of List 
End of List, no nexus found 


| 


F 15 ) 
soSsath ase" over" TERE: ASSEN, WANS tesco tects 48, 


* SIGNAL_RO 
Call LIBSSIGNAL with RO as the error if low bit is clear in RO. 


OE ~ a ; pon if no error | 
for signal | 
; Signal message 
; Restore RO 


move 
o-ooo 


00000000 ° GF 


v 
c 
a“ 
x= 
- 

Sete te tee 
mn 
@ 
o 
c 


RO 
CALLS oo Seana, 


SQN so 
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Symbol table raat 7 $3:6$;30 feoors sre CONF IG.MAR; 1 (6) | 
SSSCNT = 00000003 COMBO_VECTOR 352 g 
SSSFLG = FRFFFFFF COMBO-VECTOR_OFFSET R 
SSSKEY = FFFFFFFF CONF _PR 1AF R 
SSSKFG = FRFFFFFF CONNECT_OTHER 401 R 
$$ = 8 89 CONNECT_UBA 0 rth R 
$$.TMP1 = 1 CONNECT _UBA2 3 4 f R 
$.TMP2 = 000 Ff CRBSC_LENGTH = 4 
SSEEYTAR = 00000000 R 04 CRBSL_INTD = 00024 
$$T = ih bee CRBSL_INTD2 = 0000 rt 
SEQV_DESCS = 00000050 R 09 eapeua size = 00 899 
SNAME1$ = ale ged R 7 Cs 0000 8 R 02 
SNAME 2 = 4 R 8 DDBSL_LINK = $ 308 
AB EQV LE 0000000 RG 6 DDBSL_UCB = 004 
ACF: UBATABLE eereeeee §6X A DDBST_ORVNAME = 00000024 
ACFSINC_CHAR eeeeenee = X OA DOBST_NAME = tae: 
ACF_NAME QOOOOOFD R 02 0DdB1 444 OS R OA 
ADDRESS = Sooo oss DOBLOOP 44 A R OA 
ADDRESS CALC 444 R OA DEVICE 444 OE R 33 
ADPSL_CS = 00000000 DEVICES 0000089 R 2 
ADPSL_LINK = 00000004 DEV_FOUND 00000342 R 02 
ADPSL_VEC = 00000010 DEV_LINE 00000000 R 02 
ADP$W_ADPTYPE = 0000000E DONE 00000A90 R OA 
P$W_TR = BoOhO Seg DR11B 0000007A R 02 
ADP_TYPE 88088 gf R 88 DRIVER 0000033E R 02 
AL_ADP_TEXT 0000534 R 0 EXESGL_NUMNEXUS eereeeee =X OA 
TS_CI = 00000004 EXESTEST_CSR aereeaee §=6X = =60B 
ATS$_DOR = 00000002 EXEC OOOO06EC RG OA 
ATS_MBA = 4 4944 EXIT eee ee R OA 
ATS_MPM = 0000000 FAO_D_CTRSTR 00000255 R 02 
ATS_NULL = 00000005 FAO_D_OUTBUF Ss ob R 02 
ATS_UBA = 00000001 FAO_Q_ONEUBA 000028D R 02 
AvECtT 000030A R 08 FAO W_OUTLEN 000002C1 R 02 
AVECT2 QOOO0S0E R 0 FIRST = 00000 9 
BOOSCONF IGURE 00000134 RG OA FL 00000107 R 02 
BOOSGL _ eeeeereer =X OA FL_FL 00000498 R OA 
BOOSGL_ QOOO01BF RG 02 FX 4 RE R 02 
BOOSNO_RESET 00000000 RG OA FX_FL 00000421 R OA 
BOOSOPEN_INPUT_2 eereneee = § 6X - FX_FX se et R OA 
BOOSOPEN” OUTPUT_2 eeeeeree § A set ADP 0000B79 R OA 
BOOSSET TR 00000 RG A IDB$B_COMBO_CSR_OFFSET = BORO OF 
BOOSSHOTONF 1G 00063C RG A 1DB$8_COMBO-VECTOR_OFF SET = 00000010 
BOOSSHOW_UNIBUS O000A94 RG OA {DBSB_VECTOR = 44 
BOOCMDSV_ T = 0000000E DBSL_. = 00000014 
BOOCMD$V_NORESET s 90 9 1 IDBSL"CSR = 00000000 
BOOCMD$V_OUTPUT = D IOCSAOTORESET eeeeeeee =X OA 
BOOCMD$V_SAVE = 000000 IOCS$GL_ADPLIST eeeeenee =X A 
BU 01035 R 02 IOCSGL_DEVLIST aeenenee =X A 
BUFFER SIZE = 8 LENGT = 00000008 
B_CNUMUEC 11C R 2 LIBSGET_INPUT aeeeeeee =X OA 
CRECK_CSR OR LIBSSIGRAL aeeeeeee = =X OA 
CNFSFIND DEVICE oS 1 RG A LIBSTPARSE aeneeeee =X A 
CNFSKEYTBL 0 0 RG 4 LIBS_SYNTAXERR aeeeeeee A 
CNFSPREV_UNIBUS 16 RG A LOOKOP 0000 F RG A 
CNFSSET_QALUE 3A RG A LOOP $8 6R OA 
CNFSSTATE 90 RG LPA11 0 $8 4R Q 
¥ AR L_DEVNAME 38 SED R 8 
COMBO-CSR_OFF SET 1E R L-DRVNAME 00000F1 R 
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L ux ADP 550 R SYSG$_DEVNOTKNWN = 007¢€900 
INE Mautdta R 03 SYSG$_ENDUBA = 0076904 
BAGEL, _SPTBASE 60000287 x A SYSG$_EQV_NOTICE = 007CA00 
NAME seh R 0 SYSG$-INPOT_ERR = 007C80A 
NAME_L ae R 0 SYSG$_NEXNOTUBA - 007C 
NAME _ FF R SYSG$_NODEVADAP = 007C 
NO 1 p R SYSG$_OUT_RANGE = 007C90 
NULL a R SYSG$_OVERF LOW = £¢809 
NUM 0000101 R SYSGS_RSV_ER = 007C901 
NUMBER 9 16 R 0 SYSG$- SKIPPED = 6 7CA0GB | 
ER2 Q00002A R 03 SYSGS$_SYNTAX 2 rege A 
NVECT 9008 2R 02 SYSG$_TO0_MNY = 007C80AA 
occi = C SYSG$_ TWICE s 4s. 08 
2 = 00000004 TOO_MANY 0000 R OA 
OCCURANCE = 00000004 TPASK_COUNTO = 00000008 
FSET 4 a 02 TPASK_LENGTHO = 44 694 
UNIBUS 000 Are R OA TPASL_ COUNT = 00000000 
OTHER BLOCK 9000054 R 0 TPASL NUMBER = 0000001C | 
TPUT_DESC 0000011F R 0 TPASL_OPT IONS = 00000004 
ECT1 aie se tS R 0 TPASL_PARAM = 00000020 
ECT2 00000 $ R 02 TPASL_STRINGCNT = 00000008 | 
PARAM_BLK 500008 R 02 TPASL-STRINGPTR = 0000000 | 
PRS_IPL = 00000012 TPASL_TOKENCNT = 00000010 
PRIAT 00000884 R OA TPASL_TOKENPTR = 00000014 
T_LINE 00000549 RG OA TPASM_ABBREV = 4 
aeeeeeee =X OA TPAS_ALPHA = QOOOOIEE 
READ_PARSE_INPUT 00000189 R OA TPAS_A = Q00001ED 
J 00000500 RG OA TPA$_BLANK = 464 EE 
RIOSAB_INBUFFER eeeeeeee = X OA . TPAS_DECIMAL = 000001F | 
O$AB_OUTBUF aeneeere X OA PAS_DIGI = QOOOO1EF 
OUTLEN eeeeeeee = X OA AS_EOS = 000001F7 
RIOSOUTPUT_LINE eeeeeeee X OA TPAS_EXIT = FFFFFFFF 
R1IO_INFAB2 eeeeeeee = X OA “FAIL = FFFFFFFE 
R1O_INRAB2 aeeeeeee = X OA TPAS_FILESPEC = SO0OSIEA 
RIO OUTF AB2 eeeeeeee = X OA “HEX = 000001F5 
RL1 Q000005A R 02 I IDEN = see ahd 
RL211 QOOOOOSF R 02 PAS_KEYWORD = 00000100 
RMSS$_EOF eeeeeeee =X OA TPAS_LAMBDA = 000001F6 
k 00000057 R 8 TPAS_MAXKEY = 000000DC 
RX211 000006A R 0 _OCTA = 444 9 
SAVE_HEADER 000515 R 02 TPAS_ STRING = 0000 1F0 | 
SAVE_OUTPUT QOO009A4 R OA TPA$_SUBXPR = 44 9 
= 00000008 TPAS$_ SYMBOL = 000001F1 | 
SHOCON_HEADER 900 4EA R 9 PAS_UIC = 90000168 
SHOW_OTHER $ R TR 32A R 02 
SHOW” UBA 63 R 0 T$11 00000065 R Q 
SIGNAL _RO AG R OA TU81 B88 4 R 0 
SPACE = 5 20 T_NVECT 90 9 R 0 
SS$_NORMAL = 00000001 UBA_IOBAS = 6 
STRSUPCASE eeeeeere § xX A UBA_M_FLOATCSR = 9 0 5 
SuP 00000110 R 2 UBA_M-FLOATVEC = 
SYSSCLOSE eeereree GX A UBA_M~ SUPP = 1 
SYSSCMEXEC eeeereee GX A UBA_V-FLOATCSR = 1 
SYSSCMKRNL eeeeeeee GX A UBA_V~FLOATVEC = 3 
$F AO reeeeere A UBA~V~SUPP = 
SYSSGET eeeeerer A uBTs$ “FLAG gkaenegen A 


GX $ x 
SYSG$_ABORT = 007€8082 UBTSB-NUAVEC eeneneee =X A 
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UBTSL_DEVNAME eerereee 6X A 
UBTSL_-DRVNAME eeeeeere =X A 
UBTSL_RTNNAME teneeeee =X OA 
UBTSW_REMAINDER eeeeeeee 8 6X A 
UCBSL_CRB = 4 
UCBSL_LINK 2 0 
UCBSW_UNIT = 4 
uc 00746 R oA 
UCB_SAVE 8 33A R 
UDA ta R 0 
ih se 8 : 
UPCASE_DST $00 5S R : 
UPCASE_SRC 44 11F R 8 
VCSR 0000312 R 
VECSC_LENGTH = 00000024 
VECSL_10B = So One 
VECT1 i444 6R OA 
W_CSRBASE 0000114 R 3g | 
W_VECBASE 00000118 R 0 
W-VEC 0000011D R 06 | 
ves 00000109 R 0 
$eranweeses sooo een + 
: Psect synopsis ! | 
| 
PSECT name Allocation PSECT No. Attributes 
- 4ABS . 00000000 ( 0.) 00¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000000 ( 0.) O1¢ 41.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE | 
PAGED_DATA 00000554 ( 1364.) 8g ( ¢°} PIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC QUAD 
_LIBSSTATES QOOOOO03A (¢ 58.) O03 ¢ 3.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE 
_LIBSKEYOS it 4 4 ( 0.) O04 ¢ 4.) PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC WORD 
LIBSKEY1$ 4444 ( 0.) 82 . Be PIC USR CON’ REL LCL SHR EXE RD NOWRT NOVEC WORD 
E DATA i444 $3 0 ¢ 48.) 6 ( 8°? NOPIC USR CON REL LCL SH EXE RD WRT NOVEC BYTE 
ACF _NAMES 0000008D (¢ 141.) O07 ¢ -) NOPIC USR CON’ REL LCL NOSHR EXE RD WRT NOVEC BYTE 
EQV_NAMES 4 4 gt ( 139.) 3 ( 8.) NOPIC USR CON REL LCL NOSHR' EXE RD WRT NOVEC BYTE 
EQV_DESC 000000 ( 88.) 9 ( 9.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
PAGED_CODE 00000BB6 ( 2998.) OA (10.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 
NONPAGED_ CODE 00000045 ( 69.) OB ¢ 11.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG | 
$row rec ememw em ere erscesenscoeeaore + 
: Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 00: 8: .07 0:0 00.3) 
Command processing 110 3: 700.64 8: :01. 
Pass 546 : 83 : ag: | 
Symbol table sort 2 0: 59 0:00:03. 
ass 39 : “4g :00:14.74 
Symbol table output 0 : . :00: 8 .6¢ 
Psect synopsis output 4 : . :00:00.14 
Cross-reference output 9 3 x 3: 0: 9-00 
Assembler run totals 102 :01:02.94 
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VAX-11 Macro Run Statistics 


135288 byteg set Sp tots was 1950 pages. 


1 source Lines were read in Pass 1 g PLOGUC Ine 
4 pages of virtual memory were used to define 6 macros. 


pew eoceae ranean aon ne omanneneaa$ 


! Macro Library statistics ! 


fees season awamamanaenwa 


Macro Library name Macros defined 


miiitint 8: BTS ee wae 1 1 
$255$DUA28 1 10 
“$555$DUA28: SYSLIBIJSTARLET. MLB; 2 q 
TOTALS (all Libraries) 2 


1957 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 


SEp-1984 93:08:30 


peges) of virtual memory were used to buffer_the intermediate 
Th ‘ce were yo. of symbol table goace ducing 18 to hold 1639 non-local 
uf object records in Pass 


§o°t local symbols. 


MACRO/LIS=LIS$: CONF 1G/0BJ=OBJ$: CONFIG MSRC$: CONF 1G/UPDATE=(ENH$: CONF 1G) +EXECMLS/L1IB+L1B$:B00TS.MLB/LIB 
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EQUIPMENT CORPORA 
NTIAL AND PROPRIET 
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